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1.0  INTRODUCTION 


Under  contract  F19628-84-C001 1  with  the  Air  Force  Geophysics  Laboratory 
CAFGL) ,  Boston  College  supports  the  design,  construction,  maintenance  and 
operation  of  a  network  of  state  of  the  art  geophysical  measurement  systems.  This 
report  presents  system  level  programming  of  the  analog  to  digital  converter  for 
one  element  of  one  such  system,  the  Vibro-Acoustic  Measurement  System  (VAMS) 
"slave  unit"  (1).  The  application  of  the  work  to  VAMS  data  acquisition  has 
resulted  in  a  flexible,  readily  utilized,  interactive  software  package  that 
obtains,  controls  and  processes  sei smo-acoustic  observations.  The  software 
includes  calibration  and  recording  procedures  for  sampling  16  channels  of  data 
subject  to  conditions  specified  by  the  operator.  The  Appendix  lists  a  copy  of 
this  interactive  program  written  in  Digital's  Macro-11  Version  5.03b  assembly 
language.  The  program  has  been  installed  and  tested  on  Digital's  RT-11  Version 
5.2  operating  system. 

1.1  Functions  -  For  VAMS  the  GMAD-4A  accesses  an  LSI- 11/23  micro  computer 
thiough  a  DRV-llB  direct  memory  interface  unit  that  is  capable  of  250K,  16  bit 
word  transfers  per  second.  The  Preston  Scientific  GMAD-4A  is  a  16  channel,  15 
bit  (including  sign  bit)  A/D  conversion  system.  The  GMAD-4A  has  a  maximum  16 
channel  conversion  rate  of  80  KHz  and  a  full  recording  scale  of  plus/minus  10 
volts.  The  system  has  been  supplied  with  an  optional  4K  internal  FIFO  memory 
buffet . 


(1)  The  AFGL  Vibro-Acoustic  Measurement  System,  by  H.E.  Michel,  AIAA  PAPER 
85-7014,  AIAA  Shuttle  Environment  and  Operations  II  Conference,  Houston, 
Texas,  November  1985. 
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To  operate  the  Preston  Scientific  A/D  converter,  command  words  are  sent  in  a 
Direct  Memory  Access  (DMA)  sequence  from  the  host  computer.  When  DMA  operations 
are  completed,  the  programmer  may  strobe  data  out  of  the  A/D  converter's  FIFO 
memory.  Transfer  direction,  number  of  words  to  transfer,  and  DMA  operations  are 
accomplished  by  the  DRV11-B. 

System  programming  examples  are  presented  in  a  logical,  well-documented 
order.  Programmers  may  follow  this  sequence  of  steps  to  write  code  in  a  high 
level  language. 


DISCLAIMER  NOTICE 

THIS  DOCUMENT  IS  BEST  QUALITY 
PRACTICABLE.  THE  COPY  FURNISHED 
TO  DTIC  CONTAINED  A  SIGNIFICANT 
NUMBER  OF  PAGES  WHICH  DO  NOT 
REPRODUCE  LEGIBLY. 


2.0  DESCRIPTION  OF  THE  DIGITAL  EQUIPMENT  CORPORATION  DRV11-B 

2.1  Inti oduction  -  Communication  between  the  A/D  converter  and  the  host 
computer  is  through  the  DRVll-B's  Word  Count  Register  (WCR),  Bus  Address  Registei 
(BAR),  Control  Status  Register  (CSR),  and  the  Data  Input  (DATI)  and  Data  Output 
(DATO)  Registers.  DATI  and  DATO  Registers  share  the  same  bus  address  and  their 
transfer  direction  is  determined  by  the  function  bits  in  the  Control  Status 
Register . 

The  DRV11-B  physical  address  locations  are  listed  in  the  following  table. 
These  addresses  are  used  for  in-house  testing  procedures  and  may  vary  from  system 
to  system. 


ADDRESS 

DEVICE  REGISTER 

772410 

Word  Count  Register 

772412 

Bus  Address  Register 

772414 

Control  Status  Register 

772416 

Data  Input  or  Data  Output  Registers 

124 

Interrupt  Vector  location 

2.2  Word  Count  Register  -  The  Word  Count  Register  (WCR)  is  the  word 
transfer  counter.  The  WCR  is  loaded  with  the  2's  complement  of  the  number  of 
words  to  transfer  between  the  host  computer  and  the  Preston  Scientific  A/D 
Converter.  Data  Input  (DATI)  or  Data  Output  (DATO)  transfers  automatically 
increment  the  WCR  by  one.  When  the  WCR  increments  to  zero,  the  DRV11-B  stops  DMA 
transfers  and  generates  an  interrupt  through  vector  location  #124, 

2.3  Bus  Address  Register  -  The  Bus  Address  Register  (BAR)  contains  the 
first  address  location  of  data  for  DATI  or  DATO  transfers.  Data  transfers 
automatically  increment  the  BAR  to  allow  the  DMA  transfer  of  data  to  sequential 


host  memory  locations. 


2.4  Control  Status  Register  -  The  Control  and  Status  Register  sets 
communication  between  the  Preston  A/D  converter  and  the  DRVll-B.  The  bit 
information  below  defines  the  DRVll-B  Control  Word.  Bit  definitions  are  listed 
from  the  Least  Significant  Bit  (LSB)  (bit  #0)  to  the  Most  Significant  Bit  (MSB) 
(bit  *15) 

When  applicable,  the  bit  value  of  High  (HI,  bit=l)  or  Low  (LO,  bit=0)  are 
described . 

MSB _  LSB 

15  14  13  12  11  10  9  8  7  6  5  4  3  2  1  0 


BIT  0:  GO  BIT. 

The  GO  bit  initializes  DMA  transfers  between  the  A/D  converter  and  the  host 
computer.  This  bit  is  used  in  conjunction  with  Cycle  Request  (CYCREQ) 
during  DATI  operations. 

BIT  1:  FUNCTION  1  BIT. 

This  bit  is  known  as  the  FUNCTION  1  (FUNCT1)  bit  and  determines  the 
handshake  direction  between  the  DRVll-B  and  the  A/D  converter.  The  inverted 
value  of  this  bit  sets  the  DRVll-B  Cl  line  (bus  direction  indicator). 

LO:  Cl  =  1  ;  Receive  data  from  the  A/D  converter. 

HI:  Cl  =  0  ;  Send  data  to  the  Preston  A/D  converter. 

Note:  The  C2  line  is  tied  low  indicating  DMA  transfers  are  in  words.  Once  bit  *1 
is  set  LO,  DATI  transfers  will  be  disabled  until  the  Master  Reset  (MRESET)  bit  *2 
Is  sent. 
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BIT  2:  FUNCT2  BIT. 


The  FUNCTION  2  bit  causes  a  Master  Reset  (MRESET)  on  the  A/D  converter. 
This  bit  clears  out  the  cut  rent  internal  status  of  the  A/D  converter,  cle; 
the  Programmed  Co  (PG),  and  resets  various  internal  programming  codes.  T1 
is  commonly  referred  to  as  the  initialize  signal. 

BIT  3:  FUNCT3  BIT.  (not  available). 

The  FUNCTION  3  bit  is  not  used  by  the  A/D  converter. 

BIT  7:  READY. 

HI:  indicates  the  DRV11-B  is  ready  to  accept  another  command. 

1.0:  indicates  the  A/D  converter  is  in  operation.  Sending  the  "GO"  bit  HI 
sends  READY  LO. 

BIT  8:  CYCLE. 

This  bit  is  used  to  prime  the  DMA  cycle  during  DATI  operations. 

For  example,  to  begin  data  transfers  from  the  host  to  the  A/D 
converter,  send  the  CYCREQ  and  GO  bits  HI  in  the  DRVIl-B's  CSR. 

BIT  11:  STAT  A.  (ic-ad  only) 

This  bit  is  flagged  bv  the  Missed  Data  (MISDAT)  line.  STAT  A  is  sent  HI 
when  the  FIFO  memory  buffer  has  overflowed.  A  data  buffer  overflow  will 
cause  the  A/D  converter  to  ignore  any  newly  converted  data. 


3.0  DESCRIPTION  OF  THE  PRESTON  A/D  CONVERTER  CONTROL  WORD 


3.1  Programming  Functions  -  The  Preston  Control  Word  (PCW)  determines  the 
programming  functions  of  the  A/D  converter.  PCW  is  strobed  into  the  A/D 
converter  during  the  DATI  operations.  Use  of  the  PCW  is  demonstrated  in  examples 


Number  1  and  2.  When  applicable,  the  bit  values  of  HI  (bit=l)  or  LO  (bit=0)  are 
described . 

MSB _ _ _ _ _ _ LSB 

15  14  13  12  11  10  9  8  7  6  3  4  3  2  1  0 


BIT  1:  CONTROL  HANDSHAKE  ENABLE. 

This  bit  is  hardware  set  low  for  the  DRY11-B  interface. 

LO:  Used  for  systems  with  1  set  of  handshake  controls.  (DRV11-B 
interface) 

HI:  Used  for  systems  with  2  sets  of  handshake  controls,  one  line  is 
input  and  the  other  line  is  output. 

BIT  2:  SELECT  CAM  WRITE. 

Channel  Address  Memory  (CAM)  enables  the  storage  of  digitized  data  in 
non-sequential  order  (ex.  0,1, 3, 2, 9)  in  the  A/D  converter's  First  In,  First 
Out  (FIFO)  memory  buffer. 

LO:  The  A/D  converter  will  sequentially  store  channel  data  from  the 
First  to  the  Last  Channel  Address. 

HI:  Indicates  CAM  values  will  be  loaded  in  during  DATI  operations. 

The  number  of  CAM  values  entered  will  equal  the  difference  between 
the  First  and  Last  Channel  Address  plus  one. 

See  Example  Number  2  for  additional  help. 

BIT  3:  SELECT  LAST  CHANNEL  ADDRESS. 

1.0:  The  Last  Channel  Address  residing  in  the  A/D  converter  is  used. 


HI:  The  A/D  converter  will  expect  a  value  to  be  strobed  in  for  the  last 
channel  to  be  digitized. 

:  SELECT  FIRST  CHANNEL  ADDRESS. 

LO:  The  First  Channel  Address  residing  in  the  A/D  converter  is  used. 

HI:  The  A/D  converter  expects  a  value  to  be  strobed  in  for  the 
first  channel  to  be  digitized, 
i:  SELECT  CLOCK  DIVISOR. 

The  Clock  Divisor  is  the  channel  to  channel  processing  time. 

LO:  Indicates  the  A/D  converter  is  to  use  the  default  Clock  Divisor 
of  62  (76  octal). 

HI:  Indicates  the  Clock  Divisor  will  be  strobed  in  during  DATI 
operations . 

The  conversion  rate  for  the  GMAD-4A  is  1  MHz  (1000ns.  period).  The  counting 
frequency  is  determined  by  an  on-board  5  MHz  crystal.  The  maximum 
conversion  rate  per  channel  is  80  KHz.  Please  note  the  following  Clock 
Divisor  examples  for  further  detail. 

A  80  KHz  maximum  conversion  rate  translates  into  a  Clock  Divisor  having  a 
minimal  value  of  62.5. 

(5  MHz)/(80  KHz)  =  62.5  minimum  Clock  Divisor. 

A  80  KHz,  maximum  conversion  rate  translates  into  a  16  channel  A/D  conver¬ 
sion  time  of  200  microseconds  (usee). 

(16  channels)/(80  KHz)  =  200  usee. 

A  Clock  Divisor  of  70  translates  to  a  conversion  rate  of  71.42  KHz. 

70  usee .  =  5  MHz /x 

“>  x  =  71.42  KHz  (Note:  71.42  KHz  ^  80.00  KHz). 


BIT  6:  RUN  CONDITION 

Sent  in  conjunction  with  the  Run  Stop  Only  (RSO)  Preston  command  bit  #7  HI. 

LO:  RSO-STOP.  RSO-STOP,  Programmed  No  Go  (PNG),  causes  the  A/D 

converter  to  wait  for  a  RSO-RUN  condition  before  digitizing  after 
all  PCW  inputs  have  been  strobed  into  the  A/D  converter. 

HI:  RSO-RUN.  This  condition,  known  as  Programmed  GO  (PG),  will  program 
the  A/D  converter  to  begin  digitizing  after  all  the  PCW  values  have 
been  strobed  in  during  DATI  operations. 

BIT  7:  RSO  CONDITION 

LO:  A/D  converter  will  not  digitize  data  until  the  RSO-RUN  bits  are 
sent  HI. 

HI:  The  RSO  condition  is  used  in  conjunction  with  bit  7  (RUN)  to 
control  digitizing  of  the  A/D  converter. 

BIT  8:  SEQUENTIAL  or  RANDOM  MODE. 

LO :  RANDOM  MODE.  Enter  this  condition  with  bit  7  LO  in  the  PCW.  This 
condition  requires  the  channel  addresses  for  random  digitizing. 

This  mode  requires  the  PG  condition. 

HI:  SEQUENTIAL  MODE.  This  condition,  entered  with  bit  7  HI,  allows  the 
A/D  converter  to  digitize  data  sequentially  from  the  First  Channel 
Address  to  the  Last  Channel  Address. 

NOTE:  A  MRESET  command  will  cause  the  A/D  converter  to  exit  this 

processing  mode. 

BIT  9:  ENABLE  CAM  MEMORY. 

LO:  Enable  Channel  Address  Memory  (CAM)  programming. 

HI:  Bypass  the  CAM  for  norma]  random  or  sequential  data  digitizing. 


BIT  10:  BURST  MODE. 


LO:  The  clock  determines  the  channel  to  channel  sampling  rate. 

HI:  A  group  of  channels  (scans)  will  be  acquired  at  a  predetermined  rate 
set  by  the  Clock  Divisor. 

BIT  11:  EXTERNAL  START  SOURCE. 

LO:  The  A/D  converter  will  use  the  internal  source  to  trigger  digitizing. 
HI:  An  external  source  must  occur  within  a  given  time  limit  before 
digitizing  is  triggered. 

BIT  12:  CLOCK  SOURCE. 

LO:  The  A/D  converter's  internal  clock  source  will  be  used. 

HI:  The  A/D  converter  expects  an  external  clock  source  to  drive  the  data 
acquisition  process. 

BIT  13:  REMOTE  OR  LOCAL  PROGRAMMING. 

Determines  if  programming  of  the  Preston  A/D  converter  (Clock  Divisor,  First 
and  Last  Channel  Addresses,  etc.)  will  be  programmed  from  the  host  computer 
or  the  front  panel. 

LO:  Program  from  the  front  panel. 

HI:  Program  from  the  host. 

BIT  14:  LOCAL  LOCKOUT. 

LO:  Programming  of  the  A/D  converter  may  be  set  through  the  front  panel 
switches . 

HI:  The  front  panel  has  no  effect  on  operation  of  the  A/D  converter. 

Reset  by  power  down. 

BIT  15:  SPECIAL  MODE  BIT. 

LO:  Required  bit  state. 

HI:  Hot  used. 


t&LtZ 


NOTES : 


To  selectively  process  any  one  channel,  set  the  Last  Channel  Address 
equal  to  the  First  Channel  Address. 

4.0  DRV11-B  -  PRESTON  A/D  CONVERTER  HANDSHAKING  (INPUT  MODE:  DAT I ) 

4.1  DATI  Operations  -  DATI  operations  enable  programming  of  the  A/D 
converter  from  the  host  computer.  The  16  bit  word  instructions  are  transferred 
through  the  DRV11-B  parallel  line  port. 

The  following  instructional  steps  demonstrate  DATI  programming  of  the  A/D 
converter.  Examples  (Ex.)  are  included  to  describe  the  actual  programming 
sequences  involved.  For  additional  help,  see  Example  Number  1. 

1.  INITIALIZE  THE  DRV11-B  REGISTERS: 

Ex.  (1)  Load  the  WCR  with  the  2's  complement  number  of  words  to 
transfer . 

(2)  Load  the  start  of  the  input  array  into  BAR. 

2.  ASSURE  READY  IS  HIGH. 

READY  must  be  HI  to  allow  DATI  operations. 

When  READY  is  LO,  the  A/D  converter  will  not  acknowledge  a  CYCREO  to 
prime  DMA  operations. 

Ex.  Initialize  the  WCR  to  zero. 

3.  SEND  A  RESET.  (optional). 

A  reset  command  (all  l's)  sent  to  the  A/D  converter  will  perform  the 
following  functions: 

(1)  Return  the  system  to  input  control  word  mode.  A  new  control  word 
must  be  entered  to  start  the  A/D  converter.  This  could  be  the  RSO-Rl'N 
condition . 

(2)  Leave  the  previously  programmed  A/D  converter  unchanged. 


(3)  Clear  the  FIFO  memory  buffer  in  the  A/D  converter. 


Ex.  Load  a  RESET  into  the  first  array  location  to  be  strobed  into 
the  A/D  converter. 

SEND  THE  PCW 

Send  the  PCW  followed  by  the  PCW  values  that  reside  in  an  array  for  DMA 
transfers . 

Ex.  Load  the  PCW  into  the  second  array  location. 

SEND  PCW  VALUES. 

The  next  values  sent  to  the  A/D  converter  correspond  to  the  HI  bits 
entered  in  the  PCW  in  the  order  of  MSB  to  LSB. 

Ex.  Load  the  next  sequence  of  input  array  elements  with  the  Clock 
Divisor,  First  and  Last  Channel  Address. 

SEND  THE  DRV11-B  RSO  CONDITION. 

The  RSO  condition  sent  determines  how  the  A/D  converter  will  begin 
processing.  A  RSO-RUN  condition  will  send  the  A/D  converter  into 
digitizing  mode  after  CYCREQ  and  GO  have  been  strobed. 

Ex.  Load  the  last  element  of  the  input  array  with  the  desired  RSO 
condition. 

SEND  FUNCT1  BIT. 

Sending  FUNCT1  HI  sets  DAT1  transfers. 

Ex.  Load  the  DRVl 1-B  CSR  with  the  FUNCT1  bit  HI. 

SEND  FUNCT2  BIT. 

FUNCT2  sent  HI  resets  the  PG  and  various  lines  of  communication  within 
the  A/D  converter.  The  FUNCT1  bit  remains  high  during  this  stage. 

Ex.  (1)  Load  the  DRVl 1-B  CSR  with  the  FUNCT2  bit  HI. 


(2)  Clear  the  DRVl 1-B  CSR  FUNCT2  bit. 


9.  WAIT. 

A  delay  time  of  100  microseconds  allows  the  A/D  convex  ter  to  set  up  the 
necessary  program  control  before  digitizing  data.  (Digitizing  begins 
when  the  GO-CYCREQ  condition  is  sent). 

10.  SEND  CYCLE  AND  GO  CONDITIONS. 

The  GO  bit  sends  READY  LO  and  allows  DMA  operations. 

CYCLE  is  sent  to  prime  the  DMA  transfer.  The  FUNCT1  bit  remains  HI  to 
maintain  DAT!  operations. 

Ex.  Load  the  DRV11-B  GO  and  CYCREQ  bits. 

After  the  CYCREQ  has  been  primed,  the  interface  will  enter  DMA  operations 
under  hardware  control  until  the  WCR  increments  to  zero.  The  following  steps 
describe  hardware  functions. 

1.  THE  A/D  CONVERTER  GENERATES  A  CYCREQ. 

When  CYCREQ  is  asserted,  input  data  is  sent  to  the  DATO  register. 
Control  bits  are  latched  into  the  DRV11-B  DMA  control,  and  the  DRV11-B 
sends  BUSY  LO. 

Preston's  CYCREQ  allows  access  to  the  LSI-11  bus. 

2.  DRV11-B  GENERATES  A  BUSY. 

At  the  end  of  a  cycle,  the  DRV11-B  causes  the  WCR  and  BAR  to  be 
incremented.  BUSY  goes  HI  while  READY  remains  LO.  BUSY  going  active 
(active  LO)  causes  the  A/D  converter  to  negate  CYCREQ  and  the  trailing 
edge  of  BUSY  enters  the  indata  word  into  the  A/D  converter. 

3.  THE  A/D  CONVERTER  GENERATES  A  CYCREQ. 

The  A/D  converter  generates  another  CYCREQ.  The  user  is  only  required 
to  prime  the  first  DMA  cycle. 

4.  REPEAT  ANOTHER  CYCLE. 

The  cycle  of  CYCREQ  and  BUSY  continues  until  the  WCR  is  incremented  to 


zero . 


5. 


FINISHED:  WCR-O. 


When  data  transfers  are  complete,  the  DRV11-B  will  send  READY  HI,  and 
the  WCR  will  have  been  Incremented  to  zero. 

The  DRV11-B  at  this  time  will  generate  an  interrupt. 

The  DRV11-B  Control/Status  word  will  now  read  #202  (octal). 

NOTE:  If  BURST  MODE  is  selected  (SINGLE  CYCLE  LO),  only  one  CYCREQ  is  needed  for 
the  complete  transfer  of  the  specified  number  of  words.  The  DRV11-B  does 
not  wait  for  a  CYCREQ  to  return  from  the  A/D  converter  but  continually 
strobes  data  in  or  out  of  memory. 

4.2  Programming  Functions  -  Programming  the  Preston  A/D  converter  is 
accomplished  by  sending  the  Preston  Control  Word  (PCW)  during  the  DATI  mode. 

Send  the  high  bits  of  those  values  being  sent  to  the  A/D  converter.  Starting 
with  the  most  significant  bit  of  the  PCW,  enter  the  A/D  converter  programming 
function  values  for  each  PCW  bit  entered  HI.  For  example,  to  strobe  in  a  PCW  of 
20470  octal  (as  shown  in  Example  No.  1,  the  following  data  strobes  would  contain 
the  Clock  Divisor,  First  Channel  Address,  and  Last  Channel  Address. 


4.3  Example  Number  1;  Initialization  -  Example  Number  1  initializes  the 
Preston  Scientific  A/D  converter  using  the  programming  capabilities  of  the  PCM. 


.TITLE  INPUT 

a********************* ********************************************************* 


EXAMPLE  NUMBER  1 

Macro- 11  Assembly  language  example  of  programming  the  Preston  Scientific 
A/D  converter. 

NOTE:  This  example  was  written  and  tested  on  a  LSI-11/23  16  bit  micro¬ 
computer.  After  execution  of  this  program,  data  may  be  strobed 
out  of  the  A/D  converter’s  FIFO  memory  buffer. 


******************************************************************************* 

DEFINE  SYSTEM  MACROS 

. MCALI  . FXIT 


;  ASSIGN 

INTEGER 

*2  MEMORY  LOCATIONS 

• 

MEMORY : 

.  WORD 

177777 

MEMORY 

(1) 

.WORD 

20470 

MEMORY 

(2) 

.WORD 

77 

MEMORY 

(3) 

.  WORD 

0 

MEMORY 

(4) 

.  WORD 

15. 

MEMORY 

(5) 

•  + 

.WORD 

300 

MEMORY 

(6) 

=  RESET,  (octal). 

=  PCW. 

=  Clock  Divisor. 

=  First  Channel  Address 
=  Last  Channel  Address.  (15  decimal) 
=  RSO-RUN  condition  (octal). 


LOAD  THE  PRESTON  A/D  REGISTERS  AND  INITIATE  A  RSO-RUN  CONDITION. 


INFl'T : 

MOV 

*>0,3*/ 1724 10 

Assure  RDY  is  HI  by  setting  the 

WCR  to  zero 

MOV 

*/-6, @*>172410 

Load  WCR  with  No.  of  words  to  transfer. 

MOV 

^MEMORY ,@>>172412 

Load  BAR  with  the  start  address 

for  DMA 

transfer 

MOV 

#6, @*/ 1  7  24 14 

Send  FUNCT1,  FUNCT2  HI. 

MOV 

«2, 2*/ 1  724 14 

Send  FUNCT2  LO,  maintain  FUNCT1 

HI. 

JSR 

PC, DELAY 

Call  the  100  usee  delay  subroutine. 

vyv . 

MOV 

#403,  @*>1724 14 

Send  GO  bit,  cause  RDY  to  go  LO 

Maintain  FUNCTI  HI  and  assure 

CYCREQ 

is  HI  (BUSY  LO). 

.EXI 

T 

Exit  program 

» 

;  TIME 

DELAY 

SUBROUTINE.  .  . 

DELAY: 

MOV 

RO , -( SP / 

SAVREG . . . 

MOV 

*••100.  , RO 

Set  RO  with  a  counter. 

SOB 

RO,  . 

Wait.  . 

MOV 

( SP )+ , RO 

RESRF.G .  . . 

RTS 

PC 

and  return. 

.END 

INPUT 

End  of  program. 

.A*****************************************************************************. 


Since  an  RSO-RUN  condition  has  been  entered  during  control  word  input,  the 
A/D  converter  is  now  digitizing.  Data  will  be  stored  in  the  FIFO  memory  buffer 
at  a  rate  predetermined  by  the  Clock  Divisor.  The  program  will  start  converting 
data  when  the  last  instruction  has  been  strobed  into  the  A/D  converter  (indicated 
by  "XXX:"  in  the  above  program). 

The  following  chart  describes  the  PCW  entered  in  Example  Number  1. 

DESCRIPTION 

Indicates  the  Clock  Divisor,  First  and  Last  Channel  values 
will  be  entered. 

Indicates  sequential  processing  of  multiplexer  channels. 
Indicates  remote  (computer)  programming  mode. 


BITS 

5,4,3 

8 

13 


indicates  use  of  Channel  Address  Memory  on  the  A/D  converter.  CAM  allows  data 
acquisition  of  channels  in  a  non-sequential  order. 


.TITLE  CAMTST 

******************************************************************************* 

*  EXAMPLE  NUMBER  2  * 

*  CAM  processing  demonstration.  Sequence  thru  4  channels  in  the  order  of  * 

*  4  °  1  0  * 

******************************************************************************* 

.MCALL  .EXIT  ;  Define  library  macros. 


+ 

ASSIGN  INTEGER*!  MEMORY  LOCATIONS. 


MEMORY:  .WORD  177777 

.WORD  21474 
.WORD  77 
.WORD  0 
. WORD  3 


MEMORY  (1)  =  RESET,  (octal). 

MEMORY  (2)  =  PCW 

MEMORY  (3)  =  Clock  Divisor. 

MEMORY  (4)  =  First  Channel  Address. 
MEMORY  (5)  *  Last  Channel  Address. 


+ 


CAM  VALUES  FOR  CHANNEL  SEQUENCING. 


.WORD 

4 

;  MEMORY 

.WORD 

2 

;  MEMORY 

.WORD 

1 

;  MEMORY 

.  WORD 

0 

;  MEMORY 

+ 

.WORD 

300 

;  MEMORY 

PROGRAM 

THE  PRESTON  A/D. 

AMTST : 

MOV 

#0,@#1 7 

2410 

MOV 

#-12, @#172410 

MOV 

Memory 

,@#172412 

MOV 

#6,@#17 

2414 

MOV 

#2@#172 

414 

JSR  PC,  DELAY 

MOV  #403@#172414 


.EXIT 

■ 

;  DATA  IS  NOW  IN  THE  PRESTON  A/D  FIFO 
;  HOST  MEMORY. 

DELAY :  MOV 

MOV 
SOB 
MOV 
RTS 

.END  CAMTST 


RO,-(SP) 
MOO.  , RO 
RO,. 

(SP)+,RO 

PC 


(6)  =  Save  channel  no.  4  first. 

(7)  =  Save  channel  no.  2. 

(8)  =  Save  channel  no.  1. 

(9)  =  Save  channel  no.  0  last. 

(10) =  RSO-RUN  condition. 


Assure  READY  is  HI,  set  the  WCR  to  zero. 
Load  WCR  with  no.  of  words  to  transfer. 
Load  BAR  with  the  first  DMA  address. 

Send  FUNCT1,  FUNCT2  HI. 

Send  FUNCT2  LOW,  maintain  FUNCT1  HI. 

Wait  100  usee. 

Send  GO  bit,  causes  RDY  to  go  LO. 

Note  that  this  command  maintains  FUNCT1  HI 
and  send  CYCREQ  HI  to  prime  DMA  transfer. 
End  of  program 

MEMORY  BUFFER  WAITING  TO  BE  STROBED  INTO 


.*******************************************************************************. 

9  * 

The  Preston  A/D  is  now  in  A/D  conversion,  digitizing  thru  channels  4,  2,  1,  and  0 


PRESTON  A/D  CONVERTER  —  DRV11-B  HANDSHAKING  (OUTPUT  MODE:  DATO) 


DATO  mode  operations  are  similar  to  DATI  mode  operations.  In  DATI  mode,  the 
host  program  asserts  the  first  Cycle  Request  (CYCREQ)  initiating  DMA  transfers. 

In  DATO  mode,  the  A/D  converter  internally  asserts  the  first  CYCREQ. 

After  execution  of  Example  Number  1  or  2,  the  A/D  converter  is  in  the 
RSO-RUN  condition  and  storing  digitized  data  in  the  A/D  converter's  FIFO  memory 
buffer.  The  next  logical  steps  are  to  transfer  data  from  the  FIFO  memory  buffer 
to  host  memory. 

The  following  steps  with  Macro- 11  examples  describe  the  DATO  programming. 

1.  ASSURE  THE  WCR  IS  ZERO. 

Upon  completion  of  the  DATI  processing  steps,  the  WCR  will  have  been 
incremented  to  zero. 

Ex.  Wait  for  the  WCR  to  be  incremented  to  zero  from  DATI 
operations . 

2.  LOAD  THE  WCR. 

To  strobe  16  channels  from  the  A/D  converter  FIFO  memory,  load  the  WCR 
with  the  2's  complement  of  the  number  of  channels  to  sample. 

Ex.  Load  the  "negative  number  of  channels"  into  the  WCR. 

3.  ASSIGN  A  STORAGE  ARRAY  FOR  DMA  OUTPUT. 

Assign  an  array  (sequential  memory  locations)  for  digitized  output  from 
the  A/D  converter.  (See  Example  Number  3). 

Ex.  Load  the  BAP.  with  the  number  of  channels  to  read.. 

4.  SEND  GO  BIT. 

Upon  completion  of  steps  1,  2  and  3,  the  user  sends  the  GO  bit  to  prime 
DMA  operations.  In  DATO  mode,  the  A/D  converter  will  send  the  first 
CYCLE  to  prime  DMA  operations. 

Ex.  Load  the  DRV11-B  GO  bit. 


The  following  steps  are  hardware  generated. 


1.  The  A/D  converter  generates  a  CYCRF.Q  when  data  is  available. 

2.  DRVll-B's  response  is  to  generate  a  BUSY. 

Similar  to  DAI I,  BUSY  negates  CYCREQ  and  reads  in  the  data  on  the  cards 
input  bus. 

3.  BUSY  is  removed  after  DRV11-B  reads  the  data  on  the  line. 

This  trailing  edge  will  request  the  next  data  word  from  the  A/D 
converter  if  a  FIFO  memory  buffer  exists  on  the  system. 

4.  The  A/D  converter  generates  another  CYCREQ  when  data  becomes  available. 

5.  This  cycle  of  CYCREQ  and  BUSY  (steps  6-9)  continues  until  WCR  =  0. 

When  WCR  =  0,  READY  is  sent  HI  by  the  DRV11-B.  (Completion). 

The  DRV11-B  Control /Status  Register  should  now  contain  #200. 


6. 


4.5  Example  Number  3:  Example  of  A/D  DATO  Programming  Steps  -  Example 
Number  3  demonstrates  how  to  strobe  data  out  of  the  A/D  convertei  FIFO  memorv 
buffer  after  DATI  completion.  Before  data  is  strobed  out,  a  time  delay  of  2.025 
msec  must  be  issued  before  further  processing.  The  delay  time  may  be  broken  down 
according  to  the  following  table: 

1.7  msec.  Time  for  RSO-RUN  acknowledge. 

0.2  msec.  Time  for  16  channel  conversion. 

0.125  msec.  Extra  channel  delav  time. 


.TITLE  OUTPUT 

******************************************************************************* 

*  EXAMPLE  NUMBER  3.  * 

*  DEMONSTRATION  OF  DATA  TRANSFER  FROM  THE  PRESTON  A/D  FIFO  MEMORY  TO  THE  * 

*  HOST  COMPUTER.  * 

******************************************************************************* 

INITIALIZE  SYSTEM  MACROS... 

. MCALL  .EXIT 

+ 

INITIALIZE  AN  ARRAY  FOR  PRESTON  A/D  OUTPUT. 


MEMORY 

.  _L 

.  BLKW 

16.  ;  Define  the  data  array  "MEMORY/ 16)", 

*  ’ 

;  DATA 

TRANSFER 

OUTPUT 

MOV 

#16.  ,@#172410 

Load  the  WCR  with  the  2's  complement 

NEG 

@#172410 

No.  of  channels  to  read. 

5 

MOV 

//MEMORY,  @#1724 12 

Load  the  BAR  with  the  start  address 

MOV 

#40000, @#172412 

Load  the  BAR  with  the  start  address  for 

BIC 

#2, @#172414 

Assure  FUNCT1  is  LO . 

JSR 

PC, DELAY 

Call  the  100  ms.  delay  subroutine. 

BIS 

// 1 ,  @  1 7  24 1 4 

Initialize  DATO  DMA  transfer.  (Send  00) 

•  + 

.EXIT 

Exit  program. 

;  TIME 

DELAY  SUBROUTINE.... 

DELAY 

MOV 

RO,-(SP) 

Save  Registers  (SAVREG) 

MOV 

O 

o 

po 

O 

Set  RO  with  a  counter. 

SOB 

RO,  . 

Wait.. 

MOV 

( SP ) t , RO 

Restore  Register s(RESREG ) 

RTS 

PC 

and  return. 

. END  OUTPUT 

.a******************************************************************************. 


The  DRV11-B  will  now  transfer  16  channels  oi  data  to  Host  memory.  The  WCR 
incremented  to  zero  will  indicate  completion  of  this  routine. 


5.0  REFERENCES 


GM  Series  Analog-To-Digital  Conversion  Systems  Interface  Manual,  1985,  Preston 
Scientific,  Anaheim,  California. 

Microcomputer  Handbook,  1977,  1978,  Digital  Equipment  Corporation,  Maynard, 
Massachusetts . 

RT-11  Version  5  Programmer’s  Reference  Manual,  Volume  3A,  Macro-11  Language 
Reference  Manual,  July  1984,  Digital  Equipment  Corporation,  Maynard, 
Massachusetts . 


NOTE:  Example  Numbers  1  through  4  designed  by  Christopher  J.  Center,  Weston 
Observatory,  22  Aug  86. 


ACRONYMS /ABBREVIATIONS 


6 . 0 
A/D 
BAR 

BURST  MODE 

BUSY 

CAM 

CSR 

CYCREQ 

DAT! 

DATO 

DMA 

FIFO 

FUNC1 

FVNC2 
C-  0 
HI 
LO 
L33 

MIS  DAT 


TiS  . 


i 


MSB 


“■RESET 


?CV 


PC 


Analog  to  Digital. 

Bus  Address  Resister  (DRV11-B). 

Preston  A/D  converter  command.  (PCW  bit  #10  HI). 

BUSY  HI  enables  DMA  tranfers.  Negates  CYCREQ. 

Channel  Address  Memory.  (A/D  command). 

Control  Status  Register 

Cycle  Request.  Asserted  by  the  A/D  converter  to  gain  access  of 
the  LSI- 11/23  bus. 

Data  Input  Register  (memory  to  DRVil-B  transfer). 

Data  Output  Register.  (DRV11-B  to  memory  transfer). 

Direct  Memory  Access. 

First  In,  First  Out. 

Determines  A/D  converter  -  DRV11-B  handshake  direction. 

( DRV  1 1 - B  CSR  bit  #1). 

A/D  converter  initialization.  (DRV11-B  CSR  bit  #2). 

Enables  DMA  tiansfers.  Sends  READY  LO.  (DRYil-B  CSR  bit  #(') 
HIGH  (bit  =  l'1. 

LOW  (bit  =  0). 

Least  Significant  Bit.  (bit  =  0). 

Missed  Data.  Indicates  the  Preston  A/D  converter’s  FIFO  memory 
buffet  is  full. 

Milliseconds  (1  sec.  =  100  ms.). 

Most  Significant  Bit.  tbit  ;t15). 

Master  Reset.  Word  with  all  bits  HI.  (177777  octal). 

Preston  Command  Word.  Responsible  for  programming  of  the  A/D 
converter . 

Programmed  Go. 


PNG 


Programmed  No  Go. 


READY 


Indicates  the  DRV11-B  may  accept  another  command.  (RO). 
(DRV11-B  Control/Status  bit  #7). 

RO  Read  only. 

RSO  Run  Stop  Only.  (PCW  bit  #6). 

RSO-RUN  Start  A/D  conversion.  (PCW  bit  #6  HI  and  bit  #7  HI). 

RSO-STOP  Stop  A/D  conversion.  (PCW  bit  HI  and  bit  #7  LO). 

SINGLE  CYCLE  A/D  converter  line.  LO  when  BURST  MODE  is  selected. 

STAT  A  Status  command  sent  from  the  A/D  converter.  This  bit  beomes  HI 

when  the  A/D  converter’s  FIFO  memory  buffer  is  full. 

(DRV11-B  CSR  bit  #11). 

usee.  Microseconds  (1  sec.  =  1000  usee.). 

VAMS 


WCR 


Vibro-Acoustic  Measurement  System. 
Word  Count  Register.  (DRV11-B). 


6.1 


MACRO- 11  ASSEMBLER  LIST. 


BIC 

Bit  Clear.  Clear  the  matchin 

g  (octal)  bits. 

BIS 

Bit  Set  (Logical  OR  operation). 

Set  the 

matching 

(octal)  bits. 

.  BLKW 

Reserve  memory  for  16  bits  or 

multiples  of  16  bits 

• 

CAMTST 

Program  name. 

.EXIT 

End  of  program. 

INPUT 

Program  name. 

JSR 

Jump  to  subroutine. 

LOOP 

Loop  variable.  (Similar  for 

the 

Fortran 

continue 

statement ) . 

MACROS 

Macro- 11  subroutines. 

.MCALL 

Allow  macro  library  access. 

MOV 

Move  Instruction. 

NEG 

Negate . 

OUTPUT 

Program  name. 

RTS 

Return  from  subroutine. 

SOB 

Subtract  from  the  first  value 
not  result  no  zero. 

and  branch 

to  the  second  value  if 

WAIT 

Loop  variable.  (Similar  for 

the 

Fortran 

continue 

statement ) . 

.WORD 


Load  memory  with  a  16  bits  value. 


typ«  dyiMillnk.ee* 


FILE:  >M.IN<.COri 

Thl«  fil«  links  the  executable  W1TEST  Extended  Memory  A/D  proyam. 

Created  2B-dec-85  c.j. center  Type  “xml  ink"  to  execute. 

Revision  24- jan-05  c.j. center  Increase  no.  modules  to  link. 


•  J 

i  GDHSXH  AUTOLIV 

• 

LIhK  ®P®«,a»S3h,Pf?INIT,>e»W.TIffK/MPP:GDASXM.MPP 

;  GDASXJ1  LIf*  COMPLETE 

.EXIT 


A  l>  !*  I  N  Dl  X 


type  dyigdasxm. 
type  dyigdasxm. 


a 


!hhco9 

!hco9 


.TITLE  GDASW1 
.  IDENT  /V02.20/ 
.  SBTTL  EDIT  LOG 


FILE: 


UESTON  OBSERVATORY 
DEPT.  OT  GEOLOGY  AND  GEOPHYSICS 
GEOPHYSICAL  DATA  ACQUISITION  SYSTEM  SOFTWARE 
GDASXM.MAC 


CREATED  22 -MAY -06 


REVI90N  10-J1JN-06 


C.J. CENTER  Enhanced  programming  techniques  to 
allow  cow son  subroutine*  between  all 
sampl  lng  programs. 

C.J. CENTER  Install  optional  D/A  cal Ibratlon. 


LIT*<  FILES: 

1.  GDAS3M.MAC 

2.  PRINIT.HAC 

3.  WSATT.MAC 
INCLUDE  FILES: 

1.  GDAS1I . INC 

2.  GDAS2I.INC 

3.  GDAS3I.  INC 

4.  GDAS4I. INC 


Subrout ine  Tile. 

Preston  GMAD-4A  converter  initialization. 
RT11-)G1  data  sample  handler. 


Device  equivalences  and  "IF"  conditionals. 
Global*. 

Data  definitions. 

Macros. 


RECORD  NO.  1 


EXTENDED  TTMORY  SATTLING 


BLOCK  NO.  0. . . 

BYTE  0:  Blank . 

BYTE  1-511.:  User  comment*. 

BLOCK  NO.  1... 

This  block  contains  sampling  header  inforsiat  torn 

WORD  1:  DOUBLE  PRECISION  (HIGH  ORDER)  MtttER  OF  SCANS  SAMPLED. 
WORD  2i  DP  (LOU  ORDER)  NUMBER  OF  SCANS  BATTLED. 

WORD  3:  ERC  CLOCK  FREQUENCY,  (number  of  Interrupts  /sec). 

WORD  4:  BATTLE  RATE  (sasples/sec. ) 

WORD  5:  BIT  MAP  FOR  SAMPLED  CHATTELS  (0-15) 

WORD  6:  ERC  START  Tift:  Days  &  hours. 

WORD  7:  Minutes  l  seconds. 

WORD  8:  ZERO. 

WORD  9:  D/A  CALIBRATION  FLAG.  (0-OFF.  1-ON. ) 


RECORD  NO. 2  -  DC  OF  FILE. 

These  records  contain  scan  Information  recorded  from  the  FVeeton 
A/D  converter  or  the  ERC  clock  composed  of  the  following  f or mat : 
WORD  li  START  OF  SCAN  INDICATOR.  (072525  OCTAL) 

WORD  2i  DIVIDED  INTO  TVC  FOLLOWING  2  BYTES. 


«*  <_ .- 


J* 

I* 

;* 

;* 

;** 

i* 

{* 

j* 

i» 


BYTE  1:  ERC  FLAG. 

1.  ERC  CLOCK  DATA  IN  TEXT  TWO  WORDS. 
0,  CHATtCL  DATA  FOLLOWS. 

BYTE  2:  MfCER  OF  DATA  WORDS  IN  SCAN. 

OUTPUT  9CAN  DOWi. 

072525  010000  177747  000144  177750  000005  177664  000101 
177750  000104  177704  000074  177726  000071  177722  000056 
177665  000043  072525  001001  000005  013507 


l* 

I  ~ 

LC* 


. MCALL  .CSIGEN,  .PRINT,  .kFITW,  .CLOSE,  .EXIT, . 9CCA, . GTLIN 

.NCALL  . RDBBK, .  WD6BK 

.INCLUDE  MaDASlI.  INO 

.INCLUDE  \GDAS2I.  INO 

. GLOGL  DASTRT,DASTOP,  INTON,  INTOFF,  CLKTIN 

.INCLUDE  \CDAS3I.INO 

. S8TTL  PROGRAM  CRASH  ADDRESS  RECOVER. 


■4-H.C 


.WORD  6,0,12,0 
.  SBTTL  ACQUIRE  ATC  SET  SAMPLING  PROCEDURES 


2  Location  4,6  handle  Illegal  address  ref. 
;  Location  10,12  handle  ill.  instruction. 

;  ERR  handling  definitions  for  the  CP. 


BEGIN: 


.PSECT 

PROG 

.PRINT 

♦fCLLO 

JSR 

PC, DA6TRT 

JSR 

PC.ADC0M1 

JSR 

PC. BITMAP 

JSR 

PC.PRINIT 

JSR 

PC,  INTKIL 

Display  program  title  to  user. 

Query  user  for  D/A  calibration  option. 

Query  user  for  data  sampling  parameters. 
Generate  a  bitmap  for  channels  being  sampled 
Initialize  the  PRESTON  A/D  converter. 

Kill  undeslreable  Interrupts. 


.SBTTL  DISPLAY  SATPLING  PARAMETERS. . . 


.PRINT 

•irejT 

JSR 

PC.TYSAfP 

JSR 

PC.TY9CAN 

JSR 

PC, TYCMAP 

JSR 

PC.GETCOM 

»♦ 


Redisplay  user  Inputs  as  a  check. 

sample  rate, 

no.  of  scans, 

and  chwwrls  being  sampled. 
Query  user  for  comments. 


.SBTTL  QUERY  USER  FOR  OUTR/T  DATA  FILE. 


.PRINT  4CNTER 
MOV  SP.SPTEW* 

.CSIGEN  ♦CEVhTC, ♦DEFEXT , *0 
NOV  SPTEMP.SP 


; PRINT  ItCO  FOR  CSIGEN  FIUENAfCS 
SANE  SYSTEM  STACK  POINTER 
AT®  OPEN  FILE(S) 

RESTORE  STACK  PTR( IGNORE  CSIGEN  OPTIONS) 


.SBTTL  l-RITE  COTENTS  TO  OUTPUT  FILE,  INIT  OUTPUT  BUFFER. 


JSR 

PC,  VIRJIN 

l 

Initial tze 

virtual  memory. 

MOV 

WITCOOW .  tfiAS,  OUTBLF 

l 

Initial ize 

the  output  buffer. 

JSR 

PC.vmcoM 

f 

W"lt#  comma 

rnts  to  output  file. 

JSR 

PC.kPTVO 

• 

kfr'ite  header  to  buffer.  (Assign  ptrs) 

SBTTL  INITIALIZE  1/0  DEFINITIONS. 


CLP  SCANS  ;  "SCANS"  la  a  counter  for  >01. . . 

MOVB  fl, TRICON  ;  Inlt.  sample-completion  trigger  to  OFF. 

SBTTL  REQUIRE  A  <CR>  BEFORE  SAMPLING  BEGINS. 


CLR  R 0 

.  GTLIN  R0,  ♦OKSAPP 
.PRINT  ♦TRIGOU 
CLR  SCCAST 

.SCCA  #CAREA,  ♦9CCRST 


Clear  register  and... 

wait  for  a  <cr>  before  aampllng... 
M'lte  a  sample  message... 

Clear  .SCCA  status  word... 
and  disable  /'C. 


SBTTL  START  INTERRUPTS  AND  SAPPLE. 


JSR 

PC.CLKTIM 

JSR 

PC, INTON 

TSTB 

TRIGON 

BLT 

DOTE 

TSTB 

SATPFL 

BEQ 

20* 

JSR 

R5.XMSA rP 

CLRB 

SAPPFL 

TSTB 

ERCFLG 

BEQ 

SIT 

JSR 

R5.XERCNT 

CLRB 

ERCFLG 

JTP 

SIT 

Get  the  current  time. 

Set  interrupts . . . 

Walt _ 

and  exit  when  complete. 

Time  to  sample  ?? 

NO  -  continue 

VES-  jump  to  sample  subrout  1 ne . . . 
Reset  sample  flag. 

Time  to  read  the  clock  ?? 

NO  -  continue. 

YES-  jump  to  recoro  time. 

Reset  the  ERC  time  flag. 

Malt  for  more  Interrupts . .  . 


NTPS  PR7 

JSR  PC,  INTOFF 

CLR  SCCAST 

.  SCCA  #CAREA,#0 

JSR  PC.VIfWTT 


Restore  system  priority 
Shut  off  Interrupts. . . 

CLEAR  .SCCA  STATUS  WORD 
ENABLE  ~C. 

Ufr-lte  A/D  data  to  output  file 


SBTTL  DISPLAY  FINAL  SAfPLING  MESSAGES. 


MOV 

•AQ0TIM.R2 

JSR 

R5.ASCTIM 

.WORD 

GOTirc 

MOV 

•AENTIM.R2 

JSR 

R5.ASC7IM 

.WORD 

ERCMSB 

.PRINT 

•TTRIG 

OP 

SCANS, NSCAN 

BEQ 

l* 

.PRINT 

•OFLOLI 

NOV 

SCANS, R1 

JSR 

R0.  OTOAD 

;  14-ERE  TO  PUT  ASCII  TINE  OF  TRIGGER 
.CONVERT  ERC  TIME  TO  ASCII 
;  ADDRESS  OF  ERC  TlhE  OF  TRIGGER 

jkHERE  TO  PUT  ASCII  END  Tift 
; CONVERT  END  TlfC 
;  DC  TUC  IS  LAST  ERC  READOUT 

; PRINT  Tirt  OF  TRIGGER  AND  END  TItC 

;  BRANCH  l+EN  ALL  SCANS  ACQUIRED 
jMLET  HAVE  OVERFLOWED 

;♦  OF  SCANS  ACQUIRED 
.•CONVERT  TO  ASCII  DECIMAL 


type  dyigdasll .  Joe 

'hco  2 


*  INCLUDE  FILE:  GDAS1I.INC  » 

*  * 

*  CREATED  21-MAY -86  C.J. CENTER  GDPS  SOFTWARE  EQUIVALENCE  FILE.  * 


;  ♦ 

j  ***  SAfPLE  DEVICE  COMPILE  FLAGS  *** 

;  NOTE:  YOU  "MUST"  CHOOSE  0N.Y  •OrC"  OF  TVE  FOLLOWING  CONDITIONALS 

;  TO  COfPlLE  EACH  SAMPLING  PROGRAM.  {  0-OFF,  1-ON  ) 

0  ~ 

FSAfP  •  0  ;  Foreground  /  Background  sampling. 

XSAfP  ■  1  ;  Extended  Memory  sampling. 

RSAMP  *  0  ;  Bubble,  Floppy  Disk,  Hard  disk  sampling. 

TSAlP  •  0  ;  Kennedy  tape  sampling. 

I 

CLKVEC  •  100  ;  Clock  vector  location. 

DRWEC  •  124  ;  DRV11B  Interrupt  vector  location. 

ERRJ-RD  •  52  ;  ADDR  OF  ERROR  TYPES  FOR  PROGRATtCD  REQUESTS 

/ 

ERCCSR  ■  167770  ;  ERC  Contro 1 /Status  Register. 

ERCOUT  •  167772  j  ERC  Output  Register. 

ERC1N  •  167774  ;  ERC  Input  Register. 

ERCVEC  •  170  ;  ERC  vector  location. 

J 

DAC1  •  176750  ;  IVA  Converter  line  *1  address. 

DAC2  •  176752  ;  D/A  Converter  1  lne  42. 

.  IF  rt  RSATP 

BUBCSR  •  177150  ;  Bubble  Memory  Control/'Status  Register. 

BUB^C  *  270  ;  Bubble  memory  vector  location. 

BUBPRI  ■  272  ;  priori  ty  1  oc. 

.ENDC 

;♦ 

i  END  DATA  EQUIVALENCES. 


type  dy!gdas2l. Inc 

2 


*  INCLUDE  FILE:  GDPS2I.INC  * 

*  » 

*  CREATED  21-MRY-06  C.J. CENTER  GDAS  sofware  file  containing  global*  * 

*  3&-MAY-66  Install  Kennedy  Tape  global*.  * 


pointers  and  tables... 

.GLOBL  OUTPTR,CLfTBLF,OLfTEND,  BLWOI,  TlhFTR 
.GLOBL  ARG8LK,  DAY,  HOUR,  MINUTE,  SECOND 

ERR  codes . . . 

.GLOBL  ER0PEN,ER£0F,ERCBUF,ERHRRD,1«RERR,ERR1«I?D>ERRMEJ1,  IOFATL 
ml  sc  storage. . . 

.GLOBL  BLKNUM,  ERCLSB,  EROISB, SCCPST,  OMAP1 

.GLOBL  PREP, CPREA, TRIGOU,  NOROON, SCANS,  CLKVEC, BASRA T,  PR0, PR7 
.GLOBL  CHPN11 , SCAN11 ,  OKSAMP,  IfFVT ,  CMPNbC, PRATE, PLUS 

comments. . . 

.GLOBL  H?TOOM,GETCCM,COMBlF,CBLFEN,COMEND,LINBUF,CPROMP 
.GLOBL  ARATE,ACHSAM,TSC»e,COmfT,CIbrO,CH^rr,COMOVr 
.GLOBL  OTOAD, OTOAD1 , PUTOCT , GETDEC , GET OCT ,  URT>CD 

.GLOBL  GETCLK,GET9AM,GETOM,GErTSCN,  TYSPrt*,  TYCMAP,  TYSCAN,  ASCT I M, BITMAP 
mlsc  storage  for  I/O  Inputs... 

.GLOBL  NCHPN, NSCAN,9Att?AT,  CLKRAT,  DKCAL, DAC. Ml ,  DAC.  M2,  DAC.M3 
■GLOBL  ERCINT,DAC1,DAC2, PULSE 

sample  interrupt  global*.... 

.GLOBL  9fm£,9CANID,OFLOW,TRIGON,GOTirE,SAMBUF 
.GLOBL  ADCOM1,PRINIT,ERCIN,ERCINT 

FB  -  specific  global*... 

.IF  f€  FSATf> 

.GLOBL  ENTER,  EbCPAD,  DE\WD,  DETEXT,  SP7EFP 
.GLOBL  PROFIT,  U7TDAT,  FIEND 
.ENDC 

Ml  -  specific  global*.... 

.IF  ME  XSAFP 

.GLOBL  ENTER,  ENDPAD,DEV*ND,  DEFEXT,  SPIE^,  GOTIfC,  9AMBLF 
.GLOBL  W.NOFF,  W.N8AS,  SAFPFL,  i*MXNT,UINDOU 
.GLOBL  W.^ID^.GID.INOFF.SfrFU: 

.GLOBL  M18LF,  XAREP,  TERROR, ERCFLG, MRCNT,  SAfFTL,  INTOFF 
.GLOBL  WSAff’,  V  IRWIN,  VI  RW?T,  ERR,  ERRNO 
.ENDC 

RT  -  specific  global* - 

.IF  rc  RSATF 

.GLOBL  ENTER.  EJCPAD.DCWtC,  DEFEXT,  SPTE^ 

GLOBL  BLKADO,  BLKEhC,  BLKN0,  BLKNl ,  BLKFLG 
.GLOBL  GRREA,FBE7«,  PROFIT,  LSTkRT,  SETBLK 


TAPE  -  apcciflc  global*.... 

.ir  NE  TS*F 

.GL08L  RECHJF,  RECADD, RECEND,  RECN0, RECN1 , RECR.G, RECNUM 
.GLOBL  f^(«,un'APE,ENTAPE<QUEPY,KE?CSR,KENCXn,,KENIN 
.GLOBL  SETREC,  TYSOC 
.ENDC 


END  OT  GLOBALS. 


FILE:  GDAS3I.INC 


1)  TVIIS  FILE  CONTAINS  ALL  DATA  DEFINITIONS  FOR  GDAS  SATFLING 
PROGRAMS.  USE  TVE  APPROPRIATE  SAMPLE  FLAG  TO  GENERATE 
DATA  FOR  A  SPECIFIED  PROGRAM. 

2)  CURRENTLY  VERSION  2.2  ONLY  EXISTS  FOR  KENNEDY  TAPE  SAMPLING. 


;*  CREATED  17-MAY -66  C.J. CENTER  Enhanced  TPDEF.INC  to  create  a  general 
;*  data  file  for  all  aa>np ling  programs. 


.  PSECT  DATA 


SCAN  HEADER  AND  ERC  IhFO  -  DON'T  BREAK  UP 


SCANID: 

.WORD 

072525 

ERCBUF : 

.BYTE 

1 

.BYTE 

2 

ERCMSB: 

.WORD 

0 

ERCLSB: 

.WORD 

0 

Start  of  scan  flag. 

ERC  time  flag... 

followed  by  ♦  words  In  ERC  scan. 

Storage  for  ERC  time  days  8>  hours, 

ERC  time  minutes  and  seconds. 


SAfFLE  DEFINITIONS. 


TIIFTR 

.  BLKW 

2 

i 

GOT  lit 

.  BLKW 

2 

i 

CHMAP1 

.BLKW 

1 

i 

SAMBUF 

.BLKW 

16. 

! 

NUMBER 

.BLKW 

7 

» 

NTEST: 

.BLKW 

1 

! 

N9CAN: 

.BLKW 

2 

9 

SCANS: 

.BLKW 

2 

9 

NCHAN: 

.BLKW 

1 

9 

\ 

CLKRAT 

.BLKW 

1 

9 

SATFAT 

.BLKW 

1 

9 

BAGRAT 

.BLKW 

2 

9 

;♦ 

1  FORTRAN  SUBROUTINE  "TIN 

DAY: 

.BLKW 

1 

1 

HOUR: 

.BLKW 

1 

} 

MINUTE 

.BLKW 

1 

l 

SECOND 

.BLKW 

1 

1 

ARGBLK 

.WORD 

4 

1 

.WORD 

DAY 

.WORD 

HOUR 

.WORD 

MINUTE 

.WORD 

SECON) 

1* 

1  LSI  11/23  PRIORITIES 

PR7i 

.WORD 

340 

PR5: 

.WORD 

240 

PR3i 

.WORD 

140 

PR0i 

.WORD 

0 

ADDRESS  OF  START  TIME  IN  FILE  HEADER 
ERC  READOUT  AT  TRIGGER 
Bit  map  for  the  number  of  channels. 
SAVE  SPACE  FOR  SAMPUE  BUFFER 


6  character  buffer  to  hold  user  inputs. 
Storage  for  number  of  scans. 

No.  of  A/D  scans,  (double  precision). 

Scan  counter  (single  or  double  precision). 

No.  of  A/D  channels  to  process  for  each  scan. 


ERC  clock  rate  (cycles/sec). 

No.  of  ERC  cycles  to  skip  uben  sampling. 
Sample  rate  counters. 


TIfER"  ARGLTENT  BLOCK. 


j  hours, 
j  minutes, 

)  and  seconds. 

I  4  words  In  TIHER  subroutine 


_  •V"*#  *’ •  ** .  y .  •* _  y ,  a  •*  ,  •*, 


UMMHHSL  UK&ftfr 


'y^yy+'yi^y+xrijc'jr"  jr*  jr»_ 


PROGRAM  CONTROL. . 


COMBUF 

CBUFEN 

LINBLF 


. BLKB  511. 
. BLKB  1 
. BLKB  80. 
.BLKW  5 


PREP:  .BLKW  5 
CPREP:  .BLKW  2 
SCCPST:  .BLKW  1 
TRICON:  . BYTE  0 


D/P  CPLI8RPTICN  FLAGS 


PULSE:  .BLKB  1 
DKCPL:  .BLKB  1 


DPTP  STORAGE 


OUTPTR 

OUTBUF 

OUTEND 

BLKNJM 


.EVEN 
•BLKW  1 
.BLKW  1 
.BLKW  1 
.BLKW  1 


Comment  storage  buffer. 

Laat  byte  of  comment  storage. 

“GTLIN"  line  buffer  storage. 

PREP  FOR  I/O  ENT  PARAMETERS 

PARAMETERS  FOR  .  GVPL  &  .  SCCP  PROGRPNCD  REO 

STPTUS  WORD  FOR  .SCCP 

Sample  flag. 

>  0,  sampling  In  progress. 

<  0,  sampling  complete. 

(1-PULSE,  0-CONST PNT  VOLTPGE) 

D/P  Calibration  flag. 

0,  No  cal l brat  Ion. 

1,  Preform  cal | brat  ion. 


POINTER  TO  OUTPUT  BUFFER 
STPRT  PDDRESS  OF  OUTPUT  BUFFER 
END  PDDRESS  OF  OUTPUT  BUFFER 
STORPGE  FOR  OUTPUT  FILE  BLOCK  NUMBER 


ERROR  HPNDLING  fCSSPGES. 


EREOF:  .BYTE  15,12 

. PSCIZ  "  ERR . PTTEMPT  TO  WRITE  OUTSIDE  FILE  LIMITS.  “ 

EROPEN:  .BYTE  15,12 

.  PSCIZ  "  ERR . I/O  CHPNCL  NOT  OPEN.  ” 

ERR05:  .BYTE  15,12 

.PSCIZ  /  ERR . INVRLID  NU1BER  OF  CHANCES.  / 

ERRMEM:  .BYTE  15,12 

.PSCIZ  /  ERR . EXCEEDED  AVAILABLE  MEMORY  SPACE .  / 

ERHPRD:  .BYTE  15,12 

.PSCIZ  /  ERR . HARDWARE./ 

NOROOM:  .BYTE  15,12 

OFLOW-  'BYTE1  15^ . ^  "”*"  IN  FIL£  “GDRS31-INC"  MUST  BE  DECREASED. 

.PSCIZ  /  WARNING . DPTP  BUFFER  OVERFLOW./ 

WPRCUT:  .BYTE  15,12 

_  -PSCIZ  /  WARNING . SCATS  RECORDED  >  SCANS  DESIRED.  / 

fc«ERR:  .BYTE  15,12 

•  PSCIZ  /  ERR . FPTPL  LRITE.  / 


ERR05: 


ERRMEM: 


ERHPRD:  .BYTE 


NOROOM: 


OFLOW:  .BYTE 


QUERY  USER  ITFUTS. 


CETCLK:  .PSCIZ 
GET SAM:  .PSCIZ 
GETO-Ni  .PSCIZ 
DPC.Mli  .PSCIZ 
DAC.M2:  .PSCIZ 
DPC.M3:  .PSCIZ 


ERC  FREQUENCY  RATE  (ERC  Dial  Setting) 
ERC  DIVISOR  TO  DETERM  I  PC  SAffUE  RATE 
NUTCER  OF  CHPNCLS  TO  9PMRJI  (decimal) 
PREFORM  D/P  CALIBRATION  ?  <Y,N> 

WILL  P  D/P  PULSE  BE  IhPUT  ?  <y,N) 

ENTER  THE  PDAC  1412  D/P  COLNTS  (octal) 


•<200> 
' <200> 
"<200> 
"<200> 
"<200> 
"<200> 


A  SA*  awaV  iV vl*  - 


DISPLAY  USER  IfPUTS. 


INPUT!  .BYTE  15,12 
. ASCIZ  /  *********** 


;  Indicate  the  ueere  inputs.... 

DATA  SAMPLING  SPECIFICATIONS  ************/ 


t 


CHAMW2: 

.BYTE 

.ASCII 

ARATE: 

.BLKB 

PLUS: 

.BYTE 

.ASCIZ 

CHAMM1: 

.ASCIZ 

ACHSAM: 

.BLKB 

TSCANS: 

.BLKB 

15,12  ;  Meeeage  to  indicate  staple  rate  requested. 

/  SAMPLING  AT/ 

6  Ascii  storage  Tor  sample  rate... 

40  ;  and  i?  divisor  not  even.. 

"  (DEC)  SAMFLES/SEC . " 

/  SAMPLING  CHAftCLS:  /<200> 

£0.  ;  Storage  for  ascii  channel  map  expansion... 

12.  ;  Storage  Tor  ♦scans  in  ascii. 


;♦ 

J  DATA  FILE  COMtCNT  MESSAGES. 


J- 

OOMftfT:  .BYTE  15,12 

.ASCII  /  ENTERING  CCMtCNTS  <Y,N>  ?/<200> 

CIMFO:  .BYTE  15,12 

.ASCII  /  ENTER  UP  TO  510  CHARACTERS  OF  TEXT./  <15X12> 

.ASCIZ  /  A  BLAf*  Lift  INDICATES  COMPLETION  OF  T>€  COMMENT  SECTION.  ✓<  15X  12> 


CPROMP:  .BYTE  '>,200 
COMEND:  .ASCII  /  YOU  MAY  ENTER/ 

CH-EFT:  .  BLKB  6 

acn7  /  i«-gx-  ruop{yrrpc/ 

COtlOVF :  ! ASCIZ  /  BLFFER  OVERFLOW  -  LAST  Lift  TRUNCATED/ 

;  ♦ 

;  SAPFLING  START  MESSAGES. 

OKSAMP:  .BYTE  15,12 

.ASCIZ  /  TYPE  <CR>  TO  BEGIN  SAfFLlNG: /<200> 

TRIGOU:  .BYTE  15,12 

.ASCII  /  ATTENTION:  A  WARNING  CHARACTER  “W  IS  PRINTED/<  15X  12> 
.ASCIZ  /  WHEN  INCOMPLETE  SCANS  ARE  RECORDED/<  15X 12X  12> 

I * 

>  SAMPLING  FINISH  rCSSAGES. 

J“ 

TTRIG:  .BYTE  15,12 

.ASCII  /TRIGGERED  AT  / 

AGOTIM:  .BLKB  12. 

.BYTE  15,12 
.ASCII  /O®  TIME/ 

.BYTE  40,40,40,40,40 
AENTIMli  .BLKB  12. 

•  BYTE  0 


J* 


KENEDY  SAfFLING  DEFINITIONS... 


DISPLAY  PROGRAM  HEADER  INFORMATION. 


HELLO:  .BYTE  15,  i 2 
.ASCII  "  ********** 


.BYTE  15,12 
.ASCII  /  ***» 


. ASCIZ  ✓  A  15X12> 

♦ 

KENNEDY  DATA  HCSSAGES. . . . 


KEHfCDY  TAPE  SAFFLING  PROGRAM 
GDAS  VERSION  2.2  <  JUTE  02,1906) 


************/ 


GETSCN 

.ASCII 

"  MNBER  OF  SCANS  TO  ACQUIRE  (octal):  "<200) 

SCANM1 

.ASCII 

/  NUMBER  OF  SCANS  TO  BAFFLE  (octal)  :  A200) 

SCAhfC 

.ASCII 

/  NJMBER  OF  SCANS  RECORDED  (octal)  :  A200) 

QUERY: 

.BYTE 

15,12 

.ASCII 

/  REWIND  KENCDY  TAPE  <Y,N>  ?A200> 

;  DATA  STORAGE. . . 

t 

.EVEN 

RECBLT 

.BLKW 

2000. 

2  Record  buffer  (1024.  words)  ♦  overflow  space. 

RECNUM 

.  BLKW 

1 

Ouput  file  record  number . . . 

RECADD 

.BLKW 

1 

Address  of  current  data  record. 

RECEND 

.BLKW 

1 

Addr.  of  end  of  record  no.  112. 

RECN0: 

.BLKW 

1 

Base  address  of  record  no.  0. 

RECN1: 

.BLKW 

1 

Base  address  of  record  no.  1. 

RECFLG 

.BYTE 

0 

.EQ.  1:  Waiting  for  complete  record  of  data. 

-1:  Complete  record  has  been  data  recorded. 

.EVEN 

. ENDC  ;  END:  KENEDY  TAPE  COtCITIONALS. 

.IF  HE  FSATP  ;  START:  FOREGROUND^ACKGROUND  CONDITIONALS. 

.EVEN 

;  ****************************************************************************  j 

;*  FOREGROLfC  /  BACKGROUND  SATFLINC  SPECIFICS.  *; 

;  «■ 

;  DISPLAY  PROGRAM  HEADER  INFORMATION . 

HELLO:  .BYTE  15,12 

.ASCII  "  ************  FOREGROLfC  ✓  BACKGROUND  SATFLINC  PROGRAM  ************'■ 
.BYTE  15  12 

.ASCII  ✓  ************  GDAS  VERSION  2.2  <JLfC  02,1906)  ************/ 

.ASCIZ  /  A 15X12) 

•  ♦ 

;  DATA  FILE  NATE  <INUT  FROM  USER) _ 

ENTER:.  BYTE  15,12 


.ASCII  /. 
.ASCIZ  / 
SCAN11:  .ASCII 
SCAW2:  .ASCII 
GETSCN:  .ASCII 


..PLEASE  ENTER  OUTRTT  FILE  NATE  (WITHOUT  EXTENSION). .  .A15X12) 
<EILE-  <CR>  ..  .WRITE  FILE  TO  DISK.  A 15X12) 

'  NICER  OF  SCANS  TO  9ATFLE  (dtclMl)  :  A200) 

'  MfCER  OF  SCANS  RECORDED  (dtclMl)  :  A200) 

"  NICER  or  SCANS  TO  ACQUIRE  (d*c!M|)i  "<200) 


FILE  STORAGE  IIFORMATICN. . . 


.EVEN 

SPTE3F:  .  BLKW  1 
OEFEXT:  . RAC60  "DAT" 
.RAK50  "RAW" 
•  WORD  0 
.WORD  0 
DEVHND:  .WORD  0 


;  Temp.  stack  ptr.  storage  during  . CSIGEN  command. 
;  DEFAULT  EXTENSION  FOR  HFUT  FILE 
;  DEFAULT  EXTENSION  FOR  OUTPUT  FILE 


;  DEVICE  HANDLERS  GO  HERE  l*€N  (CEDED 


The  next  area  is  opened  for  A/D  data  file  storage.  As  defined  by  .CSIGEN, 
a  file  Is  opened  in  the  first  available  memory  location  following  DEVhND. 


PADs  .*.♦100000  ;  Leave  room  for  device  handlers. 

ENDPAD:  . 

. ENDC  ;  End  of  Foreground  /  Background  conditionals. 

.IF  (C  RSAfF 
.EVEN 

j  asa)n)n(BlnS<SB|nSSW<BSSaSSBSSB><BSSaSSBSSoSSBSSBSSa>SaSSB>sa><aSSaS*SHS<BSSBSSQSWSSaSSnSSHSSB>nSSMaS>SBSast>Snt; 

;*  BUBBLE,  FLOPPY,  DISK  SAMPLING.  *5 


;♦ 

;  DATA  OUTPUT  BUFFER  POINTER  DEFINITIONS. . . 


BLKADD: 

.BLKW 

1 

Address  of  current  data  block. 

BLKN0: 

.BLKW 

1 

Base  address  of  block  no.  0. 

BLKN1: 

.BLKW 

1 

Base  address  of  block  no.  1. 

BLKEND: 

.BLKW 

1 

Address  ptr.  for  end  of  comment  block 

BLKFLG: 

.BLKB 

0 

.EQ.  1:  Watting  block  of  data  to  fill 
-1:  Block  of  data  recorded. 

•  DISPLAY  PROGRAM  (CADER  I (FORMATION . 

J  - 

HELLO:  .BYTE  15,12 

up. 


.ASCII 


I/O  BAFFLING  PROGRAM 


•  BYTE  15,12 

.ASCII  /  ************  GDAS  VERSION  2.2  < JUNE  02, 19B6>  »»»*»*»»»»«»/ 

.  ASCI2  /  /<15X12> 


SCAN11 :  .ASCII  /  NLrtCR  OF  SCANS  TO  SAtFLE  (decimal)  :  /<200> 

SCAFM2!  .ASCII  ✓  NUMBER  OF  SCANS  RECORDED  (decimal)  :  /<200> 

GETSCNs  .ASCII  "  NLMBER  OF  SCANS  TO  ACQUIRE  (decimal):  "<200> 

;♦ 

;  RT  9AMPLE  ERROR  HANDLING. . . 

}- 

WAITER:  .BYTE  15, 12 

.ASCIZ  "  ERR . ASYNCHRONOUS  I/O  ERROR." 

;♦ 

;  DATA  FILE  NAFE(S)  <  IfPUT  FROM  USER) - 


ENTER:.  BYTE  15,12 

.ASCII  /...PLEASE  ENTER  OUTPUT  FILE  NATE  (WITHOUT  EXTENSION)  .../<  15X  12> 
.ASCII  /  STILE-  <CR>  .  ..1RITE  FILE  TO  DISK. /<  15X  12> 

.ASCII/  *DYtFILEC9?43-  <CR>  . . .  RITE  FILE  TO  FLOPPY./ 

•  ASCII  /  (974  BLKS  MAKIMM) . /<  15X  12> 

.ASCII  /  *BY:FILEC  19623-  <CR>  ...RITE  FILE  TO  BUBBLE  MEMORY/ 

.ASCIZ  /  (1962  BLKS  MAXIMUM) ./<  15X 12X  12> 


{ 

I 


I/O  FILE  HANDLING  RESERVATIONS. . . 


.EMM 

SPTEMP:  .BLKW  1 

QAREA:  .BLKW  10 

DEFEXT:  .RADS0  "DAT" 
. RAD50  "RAW" 
.WORD  0 
.WORD  0 
DEWND:  . 


;  Temp.  stack  ptr.  storage  during  . CSIGEM  command. 
;  Extra  Q-e lament  entry  area. 

;  DEFAULT  EXTENSION  FOR  IXVT  FILE 
{DEFAULT  EXTENSION  FOR  OUTPUT  FILE 


{DEVICE  HANDLERS  GO  HERE  UHEN  NEEDED 


The  next  area  is  opened  for  A/D  data  file  storage.  As  defined  by  . CSIGEM, 
a  file  is  opened  in  the  first  available  memory  location  following  DEWND. 


PAD:  .-.+10000 

ENDPAD:  . 


.ENDC 

.IF  fC  XSAtP 
.EVEN 

{  EX): 

;  START: 

BUBBLE  MEMORY  CONDITIONALS. 
EXTENDED  MEMORY  CONDITIONALS. 

k**»; 

*  EXTENDED  MEMORY  SATPLE 

PROGRAM. 

J 

•; 

♦ 

DISPLAY  PROGRAM  HEADER 

IhFCRMATION. . . 

j 

1CLLO:  .BYTE  15,12 

.ASCII  "  wwtwww  EXTENDED  MEMORY  SAMPLING  PROGRAM  a***************" 
.BYTE  15,12 

.ASCII  /  ************  GDAS  VERSION  2.2  <JUC  02, 19B6>  ************/ 

.  ASCIZ  /  /<  15X12> 

;♦ 

}  DATA  FILE  NAfC  (IhFUT  FROM  USER) _ 


ENTER:.  BYTE  15,12 

.ASCII  /...PLEASE  ENTER  OUTPUT  FILE  NATE  (WITHOUT  EXTENSION)  .../<  15X  12> 
. ASCIZ  /  •FILE-  <CR>  ..  .LRITE  FILE  TO  DISK. /<  15X  12> 

SCAFM1:  .ASCII  /  NUMBER  OF  SCANS  TO  SArPLE  (decimal)  :  /<200> 

SCANM2:  .ASCII  ✓  MffiER  OF  SCANS  RECORDED  (decimal)  :  /<200> 

GETSCN:  .ASCII  "  NUMBER  OF  SCANS  TO  ACQUIRE  (decimal):  "<200> 

{♦ 

;  EXTENDED  MEMORY  ERROR  HANDLING. . . 

ERR:  .BYTE  15,12 

.ASCIZ  "  ERR . W  -  ERROR  " 

ERRNO:  .ASCIZ  /00/ 
l* 

j  DATA  STORAGE 
J  ~ 

.EVEN 

kNDCNT:  .WORD  23. 

INOFF  t  .BLKW  1 
SAMPFL:  .BYTE  0 
ERCFLC:  .BYTE  0 
1 

XAREAs  .BLKW  2 
»rajF:  .RD6BK  3072. 

WIXX3U:  .fcOBBK  2,128. 


{  Maximum  window  remapping*. 

;  Initial  offset  into  region. 

1  Sample  flag:  0,  watt.  Else  sample. 

1  ERC  clock  flag;  0,  wait.  Else  read  time. 

l  AREA  FOR  EXTENDED  KMORY  IhFO. . 
j  BIGGEST  PHYSICAL  REGION  AVAILABLE  (96K). 

, , 0,0,WS.MAP  {  WINDOW  (INITIAL  OFFSET-0) 


FILE  STORAGE  FORMATION. . . 


SPTEMPs  .BLXW  1 
DEFEXT !  .RAOQ8  "DAT" 
. RPCC0  "RAH" 
.WORD  0 


;  Temp.  stack  ptr.  storage  during  .CSIGEM  command. 
; DEFAULT  EXTENSION  FOR  lt*\JT  FILE 
;  DEFAULT  EXTENSION  FOR  OUTPUT  FILE 


.WORD  0 

DEVWD:  .WORD  0  ; DEVICE  HANDLERS  GO  HERE  l*€N  NEEDED 

;♦ 

;  The  next  area  Is  opened  For  A/D  data  file  storage.  As  defined  by  .CSJGEN, 
;  a  file  Is  opened  in  the  first  available  memory  location  following  DEVHHD. 


PAD:  .-.  4-10000 

ENDPAD:  . 

.ENDC  j  End  of  Extended  memory  conditionals. 

.  Eh®  OF  DATA  DEFINITIONS  ********** 


type  dyigdM4i.lnc 

!hcol 


.MACRO  RESREG 
MOV  CSP)+,R5 


type  dyiprlnlt.mac 
!hco9 


.TITLE  PRESTON  INITIALIZATION. 
.GLOB.  PRINIT 


ICSTON  OBSERVATORY 
DEPT.  OT  GEOLOGY  AT®  GEOPHYSICS 
DATA  ACQUISITION  SYSTEM:  VERSION  2.0 

FILE:  PRINIT.MAC 

Creation  19-nov-85  c.j. center  Updated  A/D  programming  atepa. 

Revision  21-nov-05  c.j. center  Installed  aa  a  GLOBAL. 

29-dec-05  c.j. center  Updated  DKINIT.MAC  For  Wt  routine*. 

16-  jan-05  c.j. center  Inatall  TABLE  to  allow  relative  DNA 

addreaalng. 

17—  feb-06  c.j. center  Inatalled  A/D  error  handling. 

03-mar — 06  Change  clock  divisor. 


17— feb-06  c.j. center  Inatalled  A/D  error  handling. 

03-mar — 06  Change  clock  divisor. 

THIS  SUBROUTIfC . 

-1-  RESETS  TVC  A/D. 

-2-  SETS  IP  TVC  REQUIRED  "DAT I"  FUNCTION  BITS. 

-3-  ENTERS  A  CONTROL  WORD  TO  ENTER  TVC  FOLLOWING  PROGRAM  MODES. . . 
CLOCK  DIVISIOR:  •CLKDIV 
FIRST  CHANCL:  «0 
LAST  CHAftCL:  NCHAN  (global) 

RSO-STOP  CONDITION. 

-5-  EXITS  ON  ERROR. 


;  DEFIVC  GLOBALS  AND  DRV11B  BUS  ADDRESSES. . . . 

•  MCALL 

.PRINT, .EXIT 

.GLOBL 

NCHAN 

BASE  •  172410 

DRV11B  base  address. 

DRVWCR  ■  BASE 

Word  Count  Register 

DRVBAR  •  BASE+2 

Bus  Address  Register. 

DRVCSR  -  BASE  >4 

Control  Status  Register. 

CLKDIV  -  74. 

Minimal  PRESTON  A/D  clock  divisor. 

i  Mlac... 

•  PSECT 

DATA 

TABLE:  .BLKM 

20. 

DMA  storage  table... 

ERR:  . ASCIZ 

"  ERR . 

. PRESTON  A/D  NOT  FUNCTIONING." 

.PSECT 

PROG 

PRINIT:  MOV 

R0,-(SP) 

SAVREG. . . . 

MOV 

R1,-(SP) 

MOV 

R2,-(SP) 

MOV 

R3,-(SP) 

MOV 

R4,-(SP) 

MOV 

♦DRVWCR, R1 

R1  — >  DRV11B  Word  Count  Register. 

MOV 

•DRVBAR, R2 

R2  — >  DRV11B  Buffer  Address  Register 

MOV 

♦DRVCSR,  R3 

R3  — >  DRV11B  Control/Status  Register 

MOV 

•TABLE,  R4 

R4  — >  Memory  location  for  DRV 1 IB  DMA 

MOV  4177777,  (R4)  + 

MOV  420470,  (R4)  + 

MOV  4CLKDIV,  (R4)  + 

MOV  40,<R4)+ 

MOV  4NCHAN,<R4)* 

MOV  4200, (R4> 


Store  RESET  to  clear  out  A/D. 

Store  "CONTROL  WORD"  to  send  the  following 

1.  "CL OCX  DIVISOR" . 

2.  “FIRST  CHPft'CL" 

3.  "LPST  CHANCL". 

4.  "RSO-STOP"  condition. 


CLR  «R1 

MOV  4-6, CR1 

MOV  4TABL£,4R2 

BIS  46,«R3 

BIC  44,«R3 


Assure  READY  la  HI. 

No.  of  words  to  strobe  in. 
BAR  — >  TOP  of  TABLE. 

Set  FUNCTl-l,  FUNCT2-1 
Set  FUNCTl-l,  FUNCT2-0 


MOV  435., R0 

SOB  R0, . 

MOV  4403,  CR3 


10®*  microsecond  de 1 ay  for  A/D  after  last 
function  strobed  In. 

Set  CYCREQ  and  GO  bit. 


ERR  ???  TEST  START  UP  PROCEDURE. . . . 


MOV  41000., R0 
DEC  R0 

BEQ  ERROR 

TST  tRl 

BTC  104 


Assign  a  counter  as  a  timer... 
and  decrement. 

If  words  not  strobed  In  yet... then  ERR. 
Teat  DRS44CR  for  all  words  being 
Strobed  In  before  returning... 


MOV  <SP)*,R4 
MOV  (SP)*,R3 
MOV  <SP)*,R2 
MOV  <SP)*,R1 
MOV  (SP)*,R0 
RTS  PC 


;  RESREG.... 


;  AND  RETURN. 


FATAL  ERROR  ON  PRESTON  A/D. . . 


OR:  .PRINT  4ERR 
ADD  410., SP 
.EXIT 


Print  the  error.. 

Restore  the  stack  pointer, 
and  exit. 


.END  PRINIT 


type  dyigdaaSto 


Ihhco 

!hcol0 


.TITLE  GDPS3M 
.  IDENT  /V0Z.2B/ 

.  *»t»«*****«1»»^^tt*»»t»~*^**^**^**'*'‘n*n**''*n**n‘1*r*1*  ***'**** ‘l****l**'*'l*l*'*r**1*1*****1 

;*  1CSTCN  OBSERVATORY 

>*  DEPT.  OF  GEOLOGY  PND  GEOPHYSICS 

1*  GEOPHYSICPL  DPTP  ACQUISITON  SYSTEM  (GDPS)  90FTWPRE  LIBRPRY 

;*  FILE:  GDAS3M.MAC 

;* 

;*  CREATED  05-JLN-66  C.J.  CENTER  This  file  contain*  aJJ  aubroutines  for 
;«  the  GDPS  system. 

j*  REVISED  06-PLJ&-06  C.J. CENTER  Add  titles  and  global*  for  GDPS  library. 

J* 

;*  NOTE:  FILE  "GDAS1I. INC"  CONTAINS  T>€  "IF"  CONDITIONPLS  TO  COMPILE 
;*  PROGRAMS  FOR  RTll-fB  ft  RTU-XM  OPERATING  SYSTEMS. 


SUBROUTIfC  LIST: 

DAC:  Query  user  for  D^A  calibration  ft  set  DKQPL  flag. 

INTON:  Initialize  system  interrupts. 

INTOFF:  Stop  system  interrupts. 

INTKIL:  Stop  undeslreable  system  interrupts. 

TYSPMP:  Display's  sample  rate  on  terminal. 

ERCINT:  ERC  Interrupt  B  handler. 


.MCPLL  .SETTOP,  .GVPL,  . CRRG,  .CRAW,  .MAP,  .IN1PP 

.MCPLL  . CSIGEN,  .URITW,  .WAIT,  .aOSE,  .PRINT,  . GTLIN, . TTYIN,  .EXIT 


.INCLUDE  M3)AS1 1 .  INCn  ;  Equivalences  ft  conditionals. 

.INCLUDE  \GDASZI.INCn  ;  Global*. 

.INCLUDE  \GDAS4I.  INCn  ;  Macros. 

.PSECT  PROG 


.v. 


.  V  ••••/. 


*  PROGRAM  CALL:  JSR  FC,ELAPSE  * 

*  THIS  SUBROUTIfC  RETURNS  AFTER  AN  ELAPSED  TlfE  HAS  EXPIRED.  * 

*  * 

*  CREATED  13-AUG-06  C.J.  CENTER  * 


.GLOB. 

SECOFC,  MINUTE,  HOUR,  ARGBLK,  TICCR,  ERCCSR 

ELAPSE: 

SAVREC 

;  Save  registers. 

M.NEXT 

•  5 

;  Minute  elapse 

time. 

H.rCXT 
•  ▲ 

•  0 

;  Hour  elapse  time 

;  SET  POINTERS. 

9 

MOV 

SECOND, R1 

R1  — >  Seconds  of  last  read. 

MOV 

MINUTE, R2 

R2  — >  Minutes  of  last  read. 

MOV 

H0UR,R3 

R3  — >  Hour  of  last  read. 

•  -L. 

MOV 

♦ARGBLK, R5 

R5  — >  Fortran  argument  block  pointer 

;  GET  RESTART  Tire. 

9 

ADD 

♦M.rCXT,R2 

Set  minute  time  to  resample. 

OP 

*60., R2 

Minutes  exceed  60  ? 

BHI 

hKS 

NO  -  continue. 

SUB 

*60., R2 

YES-  carry  minutes  into 

INC 

R3 

hours. 

-PS: 

ADD 

♦H.NEXT.R3 

Set  hour  time  to  resample. 

OP 

♦24., R3 

Hours  exceed  24  ? 

BHI 

1000* 

NO  -  continue. 

SUB 

♦24.,  R3 

YES-  carry  hours  Into 

> 

INC 

R4 

days,  "but  not  really  needed.” 

1000*: 

JSR 

PC.TlrER 

Read  current  time. 

OP 

C10(R5),R1 

Seconds  match  ? 

BTC 

1000* 

NO. 

OP 

«6(R5),R2 

Minutes  match  ? 

BTC 

1000* 

NO. 

OP 

#4(R5),R3 

Hours  match  ? 

BTC 

1000* 

NO. 

MOV 

♦40, •♦ERCCSR 

Restore  ERC  interrupts. 

RESREG 

Restore  registers 

RTS 

PC 

and  return. 

j*  SLBROUTirC  CALL;  JSR  PC,DASTRT 

}* 

j*  CREATED  10-JUN-86  C.J. CENTER  Query  user  for  D/A  calibration. 
)*  REVISED  B6-PLC  OC  C.J. CENTER  Acquire  voltage  Input  from  user. 
J*  25-SEP-06  Remove  pulse,  lnlt  "DAVOLT". 


.GL06L  DAVOLT, DA6TRT,  I  VOLTS,  DAC  .M3,  DKFLG 


.PSECT  DATA 

I VOLTS:  .BLKW  1  ;  AD 

DAVOLT:  .BLKW  1  ;  Vo 

DKFLG:  .  BLKW  1  ;  l*v 

J ♦ 

;  ENTER. 

J  - 

.PSECT  PROG 

DASTRT;  MOV  R0,-(SP) 

MOV  R5,-(SP) 

CLRB  DKCAL 

;♦ 

;  QUERY  USER  FOR  CALIBRATION 


;  ADAC  D/A  voltage  count. 

;  Voltage  In  the  D/A. 

;  I4ien  decreased  to  0,  voltage  is  sent  to  the  A/D. 


9AVREG. . . 


135*: 


MOV  4LINBUF.RB 

.GTLIN  R0, 4DAC.M1 
CMPB  CR0,»'N 
BEQ  160* 

OPB  CR0,#'Y 
BTC  135* 


j  SET  CALIBRATION  FLAGS. 

CLR  DAVOLT 

INCB  DKCAL 

CLRB  PULSE 

CLR  ftDACl 

MOV  *256. , DKFLG 

;♦ 

;  PULSE  OR  CONSTANT  VOLTAGE  ? 


Initialize  DKCAL  to  zero. 


R0  — >  input  string  buffer. 
Calibration  ?? 

NO  - 
exit. 

YES  -  continue 
Else  ask  again. 


In  it  the  D/A  volt  to  zero. 

Turn  on  the  calibration  flag  (DKCAL). 
lnlt.  the  pulse  flag  to  zero. 

Inlt.  D/A  voltage  (DAC1)  to  zero. 

D/A  input  voltage  starts  at  256.  scans. 


j 140*:  .GTLIN  R0,«DAC.M2 
CMPB  «R0,*'N 

BEQ  150* 

1  cm  «R0,*'Y 

l  BTC  140* 

i  INCB  PULSE 

J ♦ 

;  QUERY  USER  FOR  IN’UT  VOLTAGE. 


Will  user  Input  a  pulse  ? 
NO.  . . 
or 

YES  ? 

Assure  answer  is  <Y  or  N). 
Set  PULSE  flag  on. 


150*: 


t* 

l  EXIT. 
t~ 

160*i 


.PRINT  MAC. M3 
JSR  PC, GET OCT 

MOV  R3, I VOLTS 


(SPH.R0 

(SP)+,R5 

PC 


Query  user  for  ADAC  D/A  counts. 
Translate  octal  ascii  to  octal  numbers 
and  store  here. 


RESREG. . 
and 

return. 


.GLOB.  DASTOP 
DASTOP:  CLP  CCDAC1 

RTS  PC 

.TITLE  INTKIL 
.GLOB.  INTKIL 


;  Clear  ullage  In  D/A 
;  and  return. 


PROGRAM  CALL:  JSR  PC, INTKIL 

MAINTAINS  UNDESIREABLE  INTERRUPTS  DORMIT. 

CREATED  11 -AUG-96  C.J. CENTER 


INTKIL:  MOV 
MOV 
CLR 
RTS 


#2,ERCVEC+2 

♦ERCVEO»2,ERCVEC 

ERCCSR 

PC 


RETURN  IF 

ERC  REQ  A  INTERRUPTS. 
ERC  INTERRUPT  ENABLE  OFF 
Return. 


.TITLE  CLKTIM 
.GLOB.  CLKTIM 


*  PROGRAM  CALL:  JSR  PC, CLKTIM 

*  START  TVE  ERC  CLOCK. 

* 

*  CREATED  11 -AUG-96  C.J. CENTER 


CLKTIM:  MOV 
MOV 
BISB 
MOV 
INCB 
MOV 
MOV 
MOV 
RTS 

J 

.TITlE 

.GLOBL 


R0,-(SP) 
♦ERCCSR, R0 
♦2, CRB 

ERCIN.ERCLSB 

CRB 

ERCIN.ERCMSB 
♦40, CRB 
(SP)+,RB 
PC 

INTON 

INTON 


SAVREG. 

Get  ERC  clock  addreaa. 
Latch  and  read  ERC 
minute*  and  second*. 
Latch  and  read  ERC 
day*  and  hour*. 

Restore  ERC  I  NT  B  after  tli 
RESREG  and 
exit. 


MOV 


♦40,ERCCSR 


;  Start  ERC  clock  interrupt* 


MOV  *CLKVEC,R0 

MOV  *SPrf\£,(R0)  + 

MOV  PR7,fR0 

MTPS  PR0 

MOV  <SP>+,R0 

RTS  PC 


.  GLOBL  INTOFT 


** 

m 

PROGRAM  CALL:  JSR  PC,  INTOFT 

* 

* 

STOP  ERC  CLOCK  INTERRUPTS. 

* 

* 

* 

* 

** 

CREATED  11 -AUG-66 

* 

INTOFT:  MIPS  PR7  ;  Raise  processor  priority. 

MOV  #RT I , CLKVEC+2  ;  IGNORE  SAMFLE  CLOCK 

MOV  KLKVEC+2,CLKVEC 

CLR  ERCCSR  ;  Turn  off  ERC  clock  interrupts 

MOV  ♦Z.ERCVEC+G  ;  and  disable 

MOV  ♦ERCVEC+6, ERCVEC+4  ;  ETC  interrupt. 

RTS  PC  ;  Return. 

.TITLE  TYSAfP 


*  SUBROUT I  hE:  TYSATP 

*  TYPE  THE  SAMPLE  ROTE  TFC  USER  REQUESTED. 


ADDRESS  OF  SAT-FLE  CLOCK  VECTORS 
GO  HERE  UPEN  CLOCK  INTERUPTS 
CLOCK  WILL  HAVE  HIGHEST  PRIORITY 
Allow  Interrupt  servicing 
RESREG. 

Return . 


.GLOBL  TYSatP 
TYSAFP:  MOV  R0,-(SP) 

MOV  R1,-(SP) 

MOV  R2,-(SP) 

MOV  CLKRAT, R1 
CLR  R0 

MOV  SATRAT,  R2 
MOV  R2.BASRAT 
MOV  R2.BASRAT+2 
DIV  R2.R0 
TST  R1 
BEQ  14* 

MOVB  PLUS 
14*:  MOV  R0,R1 

JSR  R0.OTOAD 
.WORD  PRATE 
.PRINT  «CMPN12 
MOV  (SP)+,R2 

MOV  (SP)*,Rl 

MOV  (SPlt-,R0 

RTS  PC 


;  9AVREG... 


GET  SPfPLE  CLOCK  FREQ 
MAKE  IT  DOUBLE  PRECISION 
GET  "SAMPLE  RATE”  COUNTER 
STORE  IT  THERE 
AND  THERE 

DETERMIHE  REAL  SATPLE  RATE 
REMAINDER? 

BRANCH  IF  NO 

INDICATE  THERE’S  A  LITTLE  MORE 
SAMPLE  RATE 
TO  ASCII 
THERE 

Message  for  the  sample  rate. 
RESREG 
and .  . 


return. . 


.TITLE  TYSCAN 


SUBROUTIfE:  TYSCAN 

TYPE  THE  NUMBER  0 T  SCANS  ITFUT  BY  THE  USER. 


.GLOBL  TYSCAN 
TYSCAN:  MOV  NSCAN.Rl 
JSR  R0,OTOAD 
.WORD  TSCfiNS 
.PRINT  ♦SCATM1 
.PRINT  TTSCANS 
RTS  PC 


♦  OF  DATA  SCANS  TO  ACQUIRE 

CONVERT  TO  ASCII 

TVCRE 

Print  the  number  of 


fhhco 
!  hcol0 


.TITLE  TYCMAP 
GLOBL  TYCMAP 


;*  CALL:  JSR  PC,  TYCMAP 

;*  FTJNC:  1.  CREATE  A  CHATTEL  BIT  MAP. 

J  *  2.  TYPE  THE  CHATTEL  MJMBERS  BEING  SATPLED. 


.GLOBL  NCHAN 


TYCMAP:  MOV  OMAP1.R0 


; GET  BIT  MAP  FOR  ANALOG  CHATTELS  TO  SATPLE 


MOV  TACH9AM,  R2 
CLR  R1 
10*:  ROR  R0 

BCC  12* 

INC  Rl 

JSR  R0.OTOAD 
.WORD  ARATE 
DEC  Rl 

MOVB  ♦'  , (R2)+ 

MOVB  ARATE +4, (R2)  + 
MOVB  ARATE+5,  (R2)  + 
12*:  INC  Rl 

OP  R1,NCHAN2 
BLT  10* 


ADDR  OF  ASCII  STRING  FOR  CHATTEL  NUMBERS 
CHATTEL  0  FIRST 
SATPLING  THIS  CHATTEL 
BRANCH  IF  NO 

Allow  channel  •  to  be  relative  to  1. 
CONVERT  CHAN  NUMBER  TO  ASCII 
TETP  STORAGE  THERE 
Restore  Rl  to  0  relatlue. 

MOVE  A  SPACE  TO  STRING 
ASCII  CHATTEL  NUMBER  TO  STRING 

NEXT  CHATTEL 

DOTE  FOR  ALL  CHATTELS  IN  A/D? 

BRANCH  IF  NO 


CURB  «R2 

•  PRINT  TCHATT11 

•  PRINT  TACHSAM 
RTS  PC 


TERMINATE  STRING  WITH  A  ZERO  BYTE 
Print  the  channel  map 
requested  by  the  user. 


j*  SUBROUT  ITE:  GET  COM 

{*  GET  A  BLOCK  OF  COTtENTS  FROM  THE  USER. 


. GLOBL  GETCCM 

OM:  SAVREG 

1st. .  .CLEfiR  THE  BLOCK... 

MOV  •COMBUF, R1 

MOV  Rl,R5 

CLRB  (R5)  + 

MOV  *256. ,R0 

CLR  (Rl)  + 

SOB  R0, ZAP 


;  Save  reglatera. 


R1  — >  baae  of  comnent  atorage  buffer. 
R5  — >  baae  of  comnent  atorage  buffer. 
Initialize  lat  byte  In  buffer  to  zero. 
256.  worde  In  a  block, 
tad  clear  the  block  buffera 
contenta. 


2nd... DOES  USER  WANT  COTTENTS  ??? 


MOV  $LINBUF,R0 
.GTLIN  R0,  ♦COTTT'fT 
CTPB  fRB.f'N 
BEG  sec 
CTPB  «R0,f'Y 
BTC  20$ 


POINT  TO  START  OF  IHPUT  STRING 

ASK  USER  IF  HE  WANTS  TO  ENTER  CONTENTS 

DID  HE  RESPOND  NO? 

BRANCH  IF  NO 

DID  HE  RESPOND  YES? 

TRY  AGAIN  IF  HE  DIDN'T 


3rd... OBTAIN  COTtENTS  IF  USER  DESIRES... 


.PRINT  ♦CIHFO 
MOV  4LINBLF.R0 
.GTLIN  R0.4CPRCTP 
MOVB  (R0)+, (R5)> 
BEG  26$ 

CTP  R5.4C8LFEN 
BLO  24$ 

BR  20$ 

DEC  R0 

CM*  R0.4LINBUF 
BEG  30$ 

MOVB  *15, -HRS) 
MOVB  flB.lRSH 
MOV  ♦CBUFEN.Rl 
SUB  R5.R1 
CTf»  R1.T120. 

BGT  22$ 

JSR  R0.OTOAD 
.WORD  CHEEFT 
.PRINT  ♦COMEND 
BR  22$ 

.PRINT  #CCM0VF 
CLRB  CBLFEN 

RESREG 
RTS  PC 


;  Inatruct  uaer  on  entering  comnenta. 

;  R0  — >  line  buffer. 

;  Prompt  each  comnent  line  with  a  ">". 

;  Move  comnenta  to  buffer  byte  by  byte. 
.ZERO  BYTE  MEANS  END  OF  STRING 
;  AT  END  OF  COTTENT  BLFFER? 

;  BRANCH  IF  NOT  AT  EM) 

;  BUFFER  OVERFLOW  -  BRANCH 
;  POINT  TO  THE  ZERO  BYTE 
{FIRST  CHARACTER  OF  LITC? 

; DOTE  IF  IT  IS  FIRST 

{MOVE  A  CARRIAGE  RETURN  OVER  THE  ZERO  BYTE 
{THEN  A  LITE  FEED 
{ADDRESS  BUFFER'S  EM) 

{DETERMINE  •  BYTES  IN  BUFFER 
{MORE  THAN  120  BYTES  LEFT  IN  BLFFER? 

{GET  ANOTHER  LITE  IF  SO 

{CONVERT  ♦  BYTES  REMAINING  TO  ASCII 

{PUT  ASCII  THERE 

{TELL  USER  HOW  MANY  BYTES  HE  HAS  REMAINING 
{GO  GET  rCXT  LIHE 

{PRINT  TES9AGE  FOR  COTTENT  BLFFER  OVERFLOW 
{END  OF  COTTENTS  AT  EM)  OF  BLFFER 

{  Reetore  reg latere 
(  and  return. 


;*  CALL:  JSR  PC,UmCD 

;*  14*11*  and  assign  pointers  for  the  header  lnformat Ion  in  the  first  block 
;*  of  the  output  buffer. 

;*  Inputs: 

;•  OUTBLF:  Ptr.  to  base  address  of  output  data  buffer. 

;*  OUTPTR:  Ptr.  to  current  open  location  in  output  buffer,  (updated 

;*  In  this  subroutine). 

•  *m+****+*.**x+******++**+***w*m********i*********+xmm*x*ir**v*r*w**ii++Mxm** 
.  GLOBL  WDO 


WRTHED:  MOV 
MOV 
MOV 
MOV 
ADD 
MOV 


R0,-(SP) 
Rl,-(SP) 
OUTBLF, R0 
R0,R1 
♦512., R1 
Rl, OUTPTR 


;  SAVREG... 

;  Get  the  base  address  of  the  output  buffer.. 
;  Update  the  output  buffer 
;  pointer  to  the  start 

;  of  the  next  block. 


♦ 

BLOCK  #1:  SAMPLE  HEADER  DEFINITIONS. 


CLR  (R0)+  ;  WORD  1:  ZERO. 

MOV  CLKRA  3:  ERC  CLOCK  FREQUENCY 


;* 

;  GET  ERC  TII*C. 2, -4,-4,  *  ,-2,-4,  ,0,-4, -4,  ,-4, 


.PSECT  PROG 
oct’oct  .  orcorr 

I  J  MLgMLVj 

BITMAP:  SAVREG 
15*:  MOV  R5.CH 

INC  R2 

4*:  SOB  R4,2* 

ADD  *60, Rl 
MOVB  Rl, (R5)+ 

REGRET:  RESREG 

TST  (R0)* 

RTS  R0 

.WORD  10. , 100. , 1000. 


;  Restore  reg laters ister . A  WORD 


; WE  DON'T  HAVE  TO 

; REMAINDER  IS  LAST  DIGIT 

;  Restore  registers... 

;  Adjust  R0  for  proper  return  address 
;  and  RETURN  VIA  R0. 

10000. , 177777 


TENS: 


}*  SUBROUTIfC  GETOCT 

;*  NOTE)  Tbl*  autorout  In*  receive*  DP  octet  numbers  front  the  terminal  end 
;•  store*  their  e*cll  equivalent  in  register*  R0  and  Rl. 

I*  REGISTER  DCF. . . 

I*  R3t  Low  order  DP  word  or  SP  word. 

;*  R2:  High  order  DP  word  or  clear. 


1  TTrrTTT 

. GLOSL 

GETOCT 

GETOCT: 

MOV 

R0,-(SP> 

SRWEG.  •  •  • 

MOV 

Rlf-(SP) 

MOV 

R4,-(SP) 

CLR 

Rl 

Clear  temporary  storage  register... 

CLR 

R 2 

Clear  DP  HI  order  word. 

CLR 

R3 

Clear  DP  LO  order  word. 

100*: 

.TTYIN 

Get  the  number. 

ORB 

R0, #15 

If  no  characters  entered  clear 

BEQ 

100* 

the  CR, 

ORB 

R0,#12 

and  the  LF, 

BEQ 

DONE 

and  exit. 

0 

SUB 

#60,R0 

Convert  A9CII  code  to  decimal  number. 

BLO 

120* 

Assure  character  entered  is 

ORB 

R0, #10 

In  the  octal  range. 

BHIS 

120* 

Too  high?  Ask  for  another  character. 

;  DP  SHIFT. . . . 

; 

Store  octal  equivalent  lr 

i  DP... 

a 

0 

R2  -  HI 

order  byte . ,  R3 

■  LO  order  byte. 

0 

MOV 

♦3,R4 

3  shifts. . 

110*: 

ASL 

R2 

ASL 

R3 

ADC 

R2 

90S 

R4, 110* 

1 

ADD 

R0.R3 

Add  current  TTY  buffer  value  to  LO  order 

ADC 

R2 

and  include  carry... 

BR 

100* 

Get  next  character. 

;  INVALID  OCTAL  CHARACTER  HANDLING - 


i 


120S: 

.TTYIN 

ERR  handl ing. . . 

ORB 

R0,#12 

Clear  the  input  data 

BTC 

120* 

on  the  TTYIN  line. 

.PRINT 

•WARN 

Indicate  099  to  user. 

CLR 

R2 

Reset  DP  HI  order  word 

CLR 

R3 

and  DP  LO  order  word 

i 

DONE: 

BR 

100* 

and  ask  for  more  data.... 

MOV 

<SP)*,R4 

RESREC... 

MOV 

<SP)+,R1 

MOV 

<SP)*,R0 

;  and. . 

RTS 

PC 

return  to  calling  prograa 

*  SLBROUTIfC  PUTOCT. 

*  Created  28-apr-06  c.j. center  See  note. 

« 

*  NOTE:  This  subroutine  converts  single  or  double  precision  data  Into 

*  Its  aacll  equivalent  for  terminal  printout. 

*  IfPUT  REGISTERS  R3,R2  "REQUIRED". 

*  R3  — >  LO  order  DP  or  SP. 

*  R2  — >  HI  order  DP  or  "CLEARED" . 

*  R5  — >  Output  aacll  address. 


•  GLOB.  PUT  OCT 


PUTOCT:  NOV 

MOV 

NOV 

R0,-(SP) 

Rl.-CSP) 

R4,-<SP) 

SANREG... 

MOVB 

♦2,DPFLAG 

Initialize  DP  flag  for  DP  operations. 

CLRB 

SUPRES 

Inlt.  “0“  depress  flag. 

;  QUICK  PROCESS  FOR  "SP" 

CONVERSIONS . 

T5T 

R 2 

Test  for  DP. . . . 

BTC 

50* 

and  branch  for  DP  conversion... 

NOV 

R3,R0 

Else  convert  LO  order  only... 

DECB 

DPFLAG 

Set  DP  flag  for  1  word  conversion. . . . 

BR 

60S 

and  process. . . 

;  PREPARE  HI 

ORDER  WORD  FOR  ASCII  CONVERSION. . . 

50*:  ASL 

R2 

Shift  HI  word  to  enable  ascii  convert 

BIT 

•100000,  R3 

MSB  in  LO  word  ?? 

BEQ 

70* 

NO  -  branch. . . 

INC 

R2 

YES  -  add  SI  to  HI  word . . 

BIC 

♦100000,  R3 

and  clear  the  sign  bit. 

70*:  MOV 

R2,R0 

Input  octal  character  is  In  R3. 

♦ 


CONVERT  FIRST  WORD  INTO  ASCII... 


60S: 

NOV 

•PV1.R1 

R1  — >  Place  value. 

MOV 

«6,R2 

R2  — >  Max.  no.  of  characters  to  convert 

hEXT: 

NOV 

♦~1,R4 

Initialize  the  digit  counter.... 

COUNT: 

INC 

R4 

R4  is  the  digit  counter... 

SUB 

(RU.R0 

Get  multiple  count... 

BHIS 

COUNT 

branch  for  more... 

ADD 

<R1)*,R0 

Restore  over subtree ted  Input.. 

TSTB 

SUPRES 

Have  we  reached  first  number  7? 

■  ▲ 

8LT 

80S 

YES  -  convert  ascii... 

;  NOTE:  Suppress  leading 

zeros  for  terminal  output... 

P 

TSTB 

R4 

Test  for  1st  number... 

BEQ 

90S 

If  zero  then  move  in  a  blank.. 

DECB 

SUPRES 

Else  no  more  zero  suprese  and 

BR 

80S 

convert  data. 

90S: 

MOVB 

♦'  ,<R5>+ 

1  Move  in  blanks  till  we  get  1st  character 

906 

R2,f€XT 

i 

Branch  for  remaining  data... 

I  Convert  ton  after  leading  zero* . . . . 

J- 


90S: 

ADO 

«6 0,R4 

;  Convert  digit  counter. 

MOVB 

R4,(R5)+ 

;  and  store  for  output 

SOB 

R2,rCXT 

;  Branch  for  remaining  data... 

■f 


FOR  DP  OPERATIONS:  CONVERT  LOW  ORDER  WORD  INTO  ASCII  hEXT. . . 


r* 

DECS 

DPFLAG 

Dec.  word  count  flag... 

BEQ 

TYPE 

and  type  data  when  done . . . 

MOV 

R3,R0 

Else  convert  LO  order  number... 

MOV 

•PVZ.Rl 

R1  — >  Place  value  (ignore  MSB  conversion) 

MOV 

•5.RZ 

and  convert  5  ascii  numbers... 

; 

TYPE: 

BR 

NEXT 

Branch  for  next  conversion.... 

MOV 

<SP)+,R4 

RESREG - 

MOV 

(SP)+,R1 

MOV 

(SP)+,R0 

RTS 

PC 

9 

.PSECT 

DATA 

PV1: 

.WORD 

100000, 10000, 1000, 100, 10, 1 

PV2: 

.WORD 

10000,1000,100, 10,1 

.EVEN 

DPFLAG: 

.SLKB 

Z 

SUPRES: 

.  BLKB 

0 

WARN: 

•A9CIZ 

-  ERR . 

RE-ENTER  CHARACTER  :  "<Z00> 

.TITLE 

(room 

J*  SUBROUTITC 

:  ADCOTtl 

J*  QUERY  USER  FOR  DATA  SAMPLING  PARATCTERS.  <CLKRAT,SAr*WT,  NCHAN, NSCAN) 

9 

.CLOBL 

AOCOItl 

.PSECT 

PROG 

ADCOffl: 

MOV 

R0,-(SP) 

SAVREG... 

MOV 

RZ.-(SP) 

MOV 

R3,-(SP) 

9 

.PRINT 

•GETCLK 

Ask  f or  number  of  CMAffCLS  from  the  user . . 

JSR 

PC.CETTEC 

Get  the  data  from  the  keyboard, 

MOV 

RB.CLXRAT 

and  store  In  NCHAN. 

9 

•  PRINT 

•GETSAM 

Ask  for  number  of  SAMPLES  from  the  user... 

JSR 

PC.GETDEC 

Get  the  data  from  the  keyboard. 

f 

MOV 

R0,SAH*AT 

and  store  In  NCHAN. 

.PRINT 

•GET  ON 

Ask  for  number  of  CHAftCLS  from  the  user . . 

JSR 

PC.GETDEC 

Get  the  data  from  the  keyboard. 

MOV 

RB.NCHAN 

and  store  In  NCHAN. 

«  « 


ALLOW  FOR  DP  NO.  UCN  KDtOY  TAPE  IS  USED. 


.IF  EQ 

TSAFP 

.PRINT  ♦GETSCN 

Ask  for  a  number  of  90PNS  from  the  user... 

JSR 

PC,GETDEC 

translate  Into  machine  language 

MOV 

R0.NSCAN 

and  store. 

.EHDC 

.IF  NE 

TSAMP 

.PRINT 

’  ♦GETSCN 

Ask  for  a  number  of  9CANS  from  the  user... 

JSR 

PC, GET OCT 

Get  the  DP  octal  number... 

MOV 

R2,NSCAN 

and  store  HI  order . . 

MOV 

R3, NSCAN+2 

and  LO  order. 

•  ETCC 

MOV 

(SP)+,R3 

i  RESREG.... 

MOV 

(SP)f,R2 

MOV 

(SP)+,R0 

RTS 

PC 

and  return. . . 

.IF  rc 
.TITLE 

X9AMP 

VIRWIN 

!  START:  EXTENDED  MEMORY  CONDITIONALS. 

SUBROUTIfC:  VIWJIN 

SET  UP  OUTPUT  BUFFER  AS  WITCCW  INTO  EXTENDED  MEMORY. 

Virtual  Address:  40000  -  57776  (APR *2  ss  defined  In  .HI 

Physical  Memory  Start  Address:  100000. 

DYNAMIC  REMAPPING  TO  HIGtCR  LOCATIONS  AS  DATA  ACCUMULATES 


WDHBK) 


. GLOBL  VIRMIN 
VIRWIN:  MOV  Rl.-(SP) 

.CRRG  tXAREA.MOUF 
BCC  IS 

JTf>  MRROR 


SAVREG... 

DEFHC  EXTENDED  «MOR 
NO  PROBLEM 
Ml  ERROR 


«CION 


MOV 

.CRAM 

BCC 

return. 


M®IF*R.  GID,  WINDOLHW.f'RID  ;  ASSOCIATE  WINDOW  WITH  REGION 

♦XAREAf«WINDOU  JNOpI*ilS««lSl!pC0  ***  ^  RECI°N 


type  dy :  khmp  .  v22 
!hco9 

.TITLE  WSPtP 
.  IDEM  /V2.2/ 


ICSTON  OBSERVATORY 
DEPT.  OF  GEOLOGY  &  GEOPHYSICS 
GEOPHYSICAL  DATA  ACQUISITION  SYSTEM  SOFTWARE 
FILE:  XMSAMP.MAC  (RTlltfl  USE  ON-Y) 

REVISED  24-JAN-06  C.J. CENTER  Install  "XSATf*"  as  the  module  "»«AMP" 
27-Teb-06  c.j. center  Rewritten  Tor  Preston  A/D...  (see  note) 
02-mar-06  c.j. center  Increase  delay  "TlfER"  to  prevent 

Incomplete  scan  count. 

07 -mar -06  c.j. center  Install  1.6  msec  delay  between  DAT I  and 

DATO  mode  Tor  A/D  acknowledge  oT  RSO-RUN. 
03-jun-Q6  Update  version  2.1  to  version  2.2 

2B-jun-66  Install  D/A  cal Ibrat Ions. 

Note:  Program  data  storage  Is  base  on  the  DRVBAR.  This  register 

contains  the  current  data  output  location  and  is  automatically 
incremented  with  each  strobe  oT  data. 


•  MCALL  .PRINT,  .kRITW,  .MAP 

.INCLUDE  \GDAS1I. INCn 
.  INCLUDE  \GDAS2I .  I  NO 
. GLOBL  DKFLG, IVOLTS 

.INCLUDE  \GDAS4l.INO 

♦ 

SATfLE  PROGRAM  SPECIFIC  DEFINITIONS. . . 


BASE 

-  172410 

• 

9 

DRV11B  hardware  base  address:  772410 

DRVWCR 

-  BASE 

• 

♦ 

Word  Count  Register. 

DRVBAR 

•  BASE+2 

f 

Bus  Address  Register. 

DRVCSR 

-  BASE+4 

9 

Contro 1 /Status  Register. 

DRWEC 

-  124 

; 

Interrupt  Vector  location. 

T.100 

•  35. 

9 

100usec  "SOB”  time  delay  counter. 

T.70 

-  20. 

9 

T.70  ■  (100usec  -  "previous  Instructions”) 

T.50 

•  17. 

9 

50  usee  tlise. 

;  Mtsc . . . 

.PSECT 

DATA 

WARN: 

.BYTE 

'U,200 

9 

DeTlne  sample  underTlow  WARNING  character. 

TABLE: 

.WORD 

177777 

9 

Store  PRESTON  RESET  In  a  DMA  table. 

;♦ 

.WORD 

300 

9 

Store  PRESTON  RSO-RJJS  In  next  location. 

START  OF  SAMPLE  INTERRUPT  HANDLER. . . 


.PSECT  PROG 
OTSAMP:  SAVREG 
♦ 

ASSIGN  REGISTER  POINTERS  TO  DRV11B  and  SET  PRIORITY. 


I  Save  registers  on  stack. 


MOV 

MOV 

MOV 


I* 


♦DRVWCR.R1 
♦DRVBAR,  R2 
♦DRVCSR.R3 


Rl  — >  DRV11B  Word  Count  Register. 

R2  — >  DRV11B  Bus  Address  Register. 

R3  — >  DRV11B  Control  Status  Register. 


‘>  h 


)  RESET  A/D  FIFO  fCMORY  PTC  PREPARE  TO  ACQUIRE  DATA _ 


«R1 

♦-2,CR1 
♦TABLE,  CR2 
♦6,«R3 
♦4,#R3 
♦T.100,R0 
R0, . 

♦403,  CR3 

CR1 

TST2 


D/A  CALIBRATION. 


DKCAL 

10S 

DMFLG 

10* 

IVOLTS,  MDAC1 

PULSE 

10* 

♦T.50.R0 
RB, . 

MDAC1 


Assure  UCR  Is  zero  (RDY  Is  HI)  !!! 

Store  number  of  words  to  strobe  Into  A/D. 
BAR  — >  start  of  table. 

Set  FUNCT1,  FINCT2  HI. 

Set  FUNCT2  LOW. 

Issue  100*  usee,  delay  after 
last  FUNCT  set. 

Initiate  DMA  transfers  to  the  Preston  A/D. 
DRWCR  will  increment  to  zero  when  all 
previous  values  have  been  strobed  In. 


Will  we  calibrate  ?? 

NO  -  jump  to  continue. 

YES  -  decrement  D/A  input  voltage  counter 
and  continue  till  It's  voltage  tin 
Enter  5.0  volts  on  DAC1. 

Entering  a  pulse  ?? 

NO  -  then  constant  voltage... 

YES  -  then  sent  pulse  low 
after  100  usee. 

Clear  DAC. 


SIT  AT®  WAIT. . . 

Watt:  1.7  msec  for  R90-RUN  acknowledge 

0.2  msec  for  a  16.  channel  conversion 
0.0125  msec  for  extra  channel  time  delay. 


♦600., RB 
R0,. 


;  Assert  a  time  delay  using  the 
;  SOB  instruction  (2.65  usec/lnstr). 


PRESTON  A/D 


->  MJ10RY  TRANSFER. 


MOV  NCHAN,«R1 

ICC  «R1 

MOV  ♦SAWUF.CR2 

BIC  02,CR3 

BIS  ♦1,CR3 

;♦ 

J  FIRST  SCAN: :  RECORD  DATA 

TST  SCANS 

BTC  0K9<P 

MOV  ♦CRCMSB.RB 

MOV  TirfTR.Rl 

MOV  fRB.GOTlrC 

MOV  (RB)4,(R1)4 

MOV  «RB,G0TIhEr2 

MOV  CRB,  <R1)+ 


Load  DRVWCR  with  the  2's  complement 
No.  of  channels  to  strobe  in. 

DMA  data  to  the  sample  buffer  (SAMBLF). 
Set  FUNCT 1  LO  for  DATO  transfer.. 

Start  DMA  transfer. 


ACQUISITION  START  TlfC.... 

;  Is  this  the  first  scan  ?? 

;  NO  -  don't  acknowledge  ERC  time. 
>  POINT  TO  LAST  ERC  READOUT 
;  POINT  TO  START  TIME  IN  FILE  tCAOER 
;  STORE  ERC  TlfC  OF  TRIGGER 


! 


I 


;  STORE  SCAN  HEADER  IHFORMATION. . . . 


OKSKP: 

MOV 

0UTPTR,R5 

SAVE  DATA  -  GET  OUTPUT  BUFFER  POINTER 
version  2.2  update. 

ADDRESS  OF  START  OF  SCAN  ITOICATCR 

MOV 

♦9CANID,R4 

MOV 

<R4>+, <R5)+ 

Store  the  3  byte 

MOV 

«R4,<R5)+ 

•can  header  code . . 

MOV 

R5.R4 

SAVE  AD DR,  bitmap  to  store  no.  channels. 

MOV 

QTPPl,  <R5)+ 

Store  BITMAP  of  CHATTELS  IN  SCAN 

MOV 

0«AP2,fR5 

BIC 

♦100000, <R5)+ 

CLEAR  OUT  ERC  CHATTEL'S  BIT 

MOV 

R5,-(SP) 

SAVE  DATA  STORAGE  START  ADDRESS 

MOV 

SCANID, (R5)  + 

Store  the  scan  header  flag. 

CLR 

(R5>+ 

Clear  ERC  channel's  bit.... 

MOV 

R5,R4 

and  store  current  ptr.  value. 

}♦ 

;  STORE  SAMPLES. . . 

# 

MOV 

♦T. 70, R0 

Assure  a  100+  usee,  elapse  after.. 

SOB 

R0, . 

DATO  FUNCT  setting  before  accessing  data 

MOV 

♦SAMBUF, R0 

ADDRESS  OF  9ATPLE  BUFFER 

100*: 

OP 

R0,«R2 

Exceeded  fVeston's  current  DMA  address  ??? 

EH  IS 

110* 

YES  -  exit. . . 

MOV 

<R0)+,(R5>+ 

NO  -  move  sample  to  output  buffer  and 

BR 

100* 

get  next  sample... 

110*: 

MOV 

R5,OUTPTR 

Update  OUTPUT  BUFFER  POINTER _ 

f  T 

;  DETERMITE  NO.  OF  9ATPLES  ACQUIRED - 

i 

MOV 

R5,R0 

CURRENT  OUTPUT  BUFFER  POINTER 

l 

SUB 

cspU.rb 

ttlMJS  POINTER  AT  START  OF  DATA  MOVE 

SUB 

R4,R0 

minus  pointer  at  start  of  data  move. 

ASR 

R0 

MAKE  IT  A  WORD  COUNT  (divide  by  2). 

MOVB 

R0,-(R4) 

STORE  IT  IN  SCAN  HEADER 

OP 

R0.NCHAN 

Did  we  get  all  the  samples  77? 

BEQ 

120* 

YES  -  continue 

.PRINT 

•WARN 

NO  -  print  message  and  continue... 

I* 

;  SAMPLING  COTPLETED  ??? 


120S: 

INC 

SCANS 

;  COUNT  SCANS 

op 

9CANS,NSCAN 

;D0TE? 

>♦ 

BEQ 

19* 

;  BRANCH  WHEN  DOTE 

; 


END  OF  WlfOOW  ??? 


Of» 

R5,0UTEND 

OVERFLOWED  OUTPUT  BUFFER? 

BLOS 

20* 

iBRANCH  WCM  UTCER 

DEC 

W®CNT  ;OCCK  NICER  OF  WlhCOW  REMAPPINGS 

BLE 

19*  ;  NO  MORE  ALLOkCD 

> 

J- 

AT  END  OF  WIWOW  FILL  BUFFER  WITH  ZEROS  At®  GET  A  f€W  PAGE. . . 

MOV 

OUTEN9.R0 

Get  end  of  window  pointer  end 

21*: 

ADD 

*64, R0 

edjuet  it  to  the  "actual"  4k  boundary. 

CMP 

R5.R0 

Fill  memory  location* 

BPL 

22* 

till 

we  reach  the  4k  boundary. 

CLR 

<R5)+ 

Uae  a 

•zero  fill" 

BR 

21* 

and  branch  till  we're  at  the  end.... 

22*: 

ADD 

♦128. ,  WINXXHW.  NOFF 

INCREASE  MAPPING  OFFSET  BY  4K 

.MSP 

♦XAREA,  *WII®OU 

REMAP  WINDOW 

BCC 

23* 

NO  PROBLEM 

JH» 

ttRROR 

»1  ERROR 

23*: 

MOV 

WINXXMW.  f«AS,  OUTPTR 

Create  a  new  pointer... 

•  + 

BR 

20* 

and  continue  sampling... 

f 

EXIT  IF  ALL  SCANS  ACQUIRED. . 

19*: 

NEGB 

TRICON 

FLAG  FOR  DOTC  AND/OR  OVERFLOW 

CLR 

♦kNDCNT 

28*: 

RESREG 

Restore  registers 

RTS 

R5 

and  return. 

•  ETC 

}  XMSATP 

.v:/vv.'\y'. 


p* 

“s’ 

■ 

ES 

£v 


type  dyitlatr.MO 
!hco9 

.  TITLE  TlfCR 

.GLOBL  TWER,  IPOKE,  IPEEK 


{*  file 

M"|,**  +  +  **»***********»***«***«««*»T.>«'«*«««tttl«*,|»*lt*“t  +  +  f’tn‘r*'»*'r**>f'' 

TlfCR.  MAC 

«** 

* 

{*  CALL 

2  * 

CALL  TII*CR<  ITIHE) 

* 

{* 

I TIME  is  RETURfCD  IN  AN  INTEGER  ARRAY  OF  DIMENSION  4. 

* 

* 

{* 

ARRAY  ELEMENTS  CONTAIN  TVE  FOLLOWING: 

* 

{* 

ITIfC(l):  DAY 

* 

{* 

(2):  HOUR 

* 

{* 

(3):  MINUTES 

* 

;* 

•  * 

(4):  SECONDS 

« 

$ 

{* 

Revision  06- ^ug -61 

* 

* 

{* 

THIS  IS  A  MODIFICATION  OF  A  PROGRAM  NATO  GET I MI  APPEARING 

* 

.* 

IN  T>€  8  OCT  80  EDITION  OF  TVE  AFGL  SDAS:  A  FUNCTIONAL 

* 

{* 

DESCRIPTION. 

• 

{* 

Rrvlalon  c.j. center  0S-mar-06  Renamed  CLOCK. MAC  to  TlfCR. MAC 

* 

.INCLUDE  /GDAS4I.INC/ 

•  PSECT  PROG 

DK 

♦ 


Tire?  SUBROUTIfC. 


TlfCR: 

SAVREG 

MOV  R5,-(SP) 

Sava?  fortran  argument*  on  the  stack 

MOV  4ALIST1.R5 

SETUP  FOR  SR  I POKE 

JSR  PC.IPOKE 

SET  CSR  FOR  HOURS  ♦  DAYS 

MOV  •ALIST2.R5 

SETUP  FOR  SR  IPEEK 

JSR  PC, IPEEK 

READ  HOURS  ♦  DAYS 

MOV  R0.KRDAY 

PUT  RESULTS  IN  BUFFER 

MOV  «ALIST3,R5 

SETUP  FOR  SR  I  POKE 

JSR  PC.IPOKE 

SET  CSR  FOR  SEC  ♦  MIN 

MOV  *ALIST2,R5 

SETUP  FOR  SR  IPEEK 

JSR  PC.  IPEEK 

READ  SEC  ♦  MIN 

MOV  R0.SECMIN 

PUT  RESULTS  IN  BUFFER 

MOV  4ALIST4.R5 

JSR  PC.IPOKE 

SETUP  FOR  I POKE 

1 

MOV  «HRDAY,R4 

ADRS  OF  TIfC  BUFFERS 

MOV  (SP)*,R5 

RESTORE  R5 

TST  (R5)+ 

R5  NOW  -  START  OF  ARG  LIST 

MOV  CR5.R5 

MOV  fTABLE.Rl 

ADRS  OF  ARRAY  OF  RETURfCD  TIME 

2*: 

MOVB  <R4H,-(SP> 

MOVB  (R4)*,1(SP) 

MOV  (SP)*,R3 

GET  WORD  OF  RAW  TIfC 

3»: 

CLR  R2  , 
MOVB  (R1)+,R0  ; 
ASHC  R0.R2 

CLEAR  HIGH  SHIFT  REGISTER 

SHIFT  COUNT 

SHIFT  BITS  FOR  THIS  COUNT  INTO  R2 

;  CLEAR  HIGH  SHIFT  REGISTER 
{SHIFT  COUNT 

{SHIFT  BITS  FOR  THIS  COUNT  INTO  R2 


{SAVE  ON  STACK 

jMAKE  SURE  NO  STUCK  BITS 


MOV  R2,-(SP) 

CH>  «SP,*10. 

BLT  33* 

sub  *ie.,«sp 

33*: 

TSTB  CR1 

BGT  3* 

NOV  «SUM,R0 

NOVB  <R1H,R2 

NO V  (SPH,  (R0)  + 

NOV  R3, (R0)+ 

4S: 

NOV  (SP)+,R3 

MUL  (R0)+,R3 

ADD  R3.SUM 

INC  R2 

BTC  4* 

NOV  SUM, (R5)+ 

MOV  SUm2,R3 

TSTB  CR1 

BGT  3* 

TSTB  (Rl)+ 

BLT  2* 

5*: 

:  + 

RESREG 

RTS  PC 

;  DATA  DEFINITIONS. 

s 

.PSECT  DATA 

SUM: 

. BLKH  2 

TENS: 

.WORD  10., 100. 

TABLE: 

.BYTE  2.4, 4, -2,2,4, -1, 
.EVEN 

VRDAY: 

.BLKU 

SECMIN: 

.  BLKW 

ALIST1: 

.WORD  2, ERCSR, THEE 

ERCSR: 

.WORD  167770 

THEE: 

.WORD  3 

ALIST2: 

.WORD  1, ERCOUT 

ERCOUT: 

•WORD  167774 

ALIST3: 

.WORD  2, ERCSR, TWO 

TWO: 

.WORD  2 

ALIST4: 

.WORD  2, ERCSR, ZERO 

ZERO: 

.WORD  0 

.END  jTirtR 

MORE  DIGITS  IN  THIS  TIfC  UNIT? 
YES,  TVEN  BRANCH 

MAX  POVER  OT  TEN  rCEDED  (VCGATED) 
STORE  LEAST  SIGNIFICANT  DIGIT 
STORE  REMAIIED  OF  Tift  WORD 
rorr  significant  bit 
Tires  TENS  POER 
ADD  TO  SUM 

DOTC  ALL  DIGITS  FOR  THIS  IN1T? 

NO,  TVEN  BRANCH  BACK 
RETURN  UNIT  TO  ARRAY 
GET  REMAINDER  OF  TlfC  WORD 
DONE  WITH  THIS  WORD? 

NO,  THEN  BRANCH 

DONE  BOTH  INPUT  WORDS  OF  TIME? 

NO,  TVEN  BRANCH 

YES,  TVEN  RETURN 


; HOURS  AND  DAYS  BUFFER 
;  SECONDS  AND  MINUTES  BUFFER 

;  ADRS  OF  ERC  CONTROL  STATUS  REG 
;MASK  FOR  READING  H?  ♦  DAY 


;  ADRS  OF  ERC  OUTPUT  REG 


-7,4,4,-!.  4,4,-l,0 


